Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
HTML::Shakan::Renderer::HTML::DateTimeSeparatable
package HTML::Shakan::Renderer::HTML::DateTimeSeparatable;
use Any::Moose '::Role';
sub separate_datetime {
my ($self, $html) = @_;
$html =~ s{
(</select>)([\n\s]*<select \s name="[^"]+_(?:month|day)">)
}{$1/$2}xmsg;
$html =~ s{
(</select>)([\n\s]*<select \s name="[^"]+_(?:time|minute)">)
}{$1:$2}xmsg;
return $html;
}
no Any::Moose '::Role';
1;
__END__
=head1 DESCRIPTION
blah blah blah
=head1 SEE ALSO
=over 4
=item HTML::Shakan::Renderer::HTML::DefinitionList
http://gist.github.com/148522
=item HTML::Shakan::Renderer::HTML::SelectivelyEncodable
http://gist.github.com/148523
=item HTML::Shakan::Renderer::HTML::DateTimeSeparatable
http://gist.github.com/148524
=back
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment