Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
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)">)
$html =~ s{
(</select>)([\n\s]*<select \s name="[^"]+_(?:time|minute)">)
return $html;
no Any::Moose '::Role';
blah blah blah
=head1 SEE ALSO
=over 4
=item HTML::Shakan::Renderer::HTML::DefinitionList
=item HTML::Shakan::Renderer::HTML::SelectivelyEncodable
=item HTML::Shakan::Renderer::HTML::DateTimeSeparatable
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment