HTML::Shakan::Renderer::HTML::DateTimeSeparatable

DateTimeSeparatable.pm

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