public
Created

  • Download Gist
MyDate.pm
Perl
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
package MyDate;
use Moose;
use namespace::autoclean;
use Date::Handler;
 
has '_date_handler' => (
is => 'ro',
isa => 'Date::Handler',
handles => qr/.*/,
);
around BUILDARGS => sub {
my $orig = shift;
my $class = shift;
return $class->$orig(_date_handler => Date::Handler->new(@_));
};
 
no Moose;
__PACKAGE__->meta->make_immutable;

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.