Create a gist now

Instantly share code, notes, and snippets.

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;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment