Attachment #351062 for bug #420033

View | Details | Raw Unified | Return to bug 420033
Collapse All | Expand All





use MooseX::Types -declare => [qw( DateTime Duration)];

subtype DateTime, as 'MooseX::Types::DateTime::ButMaintained::DateTime';
coerce( DateTime,
    @{ $MooseX::Types::DateTime::ButMaintained::coercions{DateTime} },
    from Str, via { DateTimeX::Easy->new($_) },
);

subtype Duration, as 'MooseX::Types::DateTime::ButMaintained::Duration';
coerce( Duration,
    @{ $MooseX::Types::DateTime::ButMaintained::coercions{"DateTime::Duration"} },
    from Str, via { 

Return to bug 420033

Lines 15-27 Link Here

(-)lib/MooseX/Types/DateTimeX.pm (-2 / +2 lines)
15		15
16	use MooseX::Types -declare => [qw( DateTime Duration)];	16	use MooseX::Types -declare => [qw( DateTime Duration)];
17		17
18	subtype DateTime, as MooseX::Types::DateTime::ButMaintained::DateTime;	18	subtype DateTime, as 'MooseX::Types::DateTime::ButMaintained::DateTime';
19	coerce( DateTime,	19	coerce( DateTime,
20	@{ $MooseX::Types::DateTime::ButMaintained::coercions{DateTime} },	20	@{ $MooseX::Types::DateTime::ButMaintained::coercions{DateTime} },
21	from Str, via { DateTimeX::Easy->new($_) },	21	from Str, via { DateTimeX::Easy->new($_) },
22	);	22	);
23		23
24	subtype Duration, as MooseX::Types::DateTime::ButMaintained::Duration;	24	subtype Duration, as 'MooseX::Types::DateTime::ButMaintained::Duration';
25	coerce( Duration,	25	coerce( Duration,
26	@{ $MooseX::Types::DateTime::ButMaintained::coercions{"DateTime::Duration"} },	26	@{ $MooseX::Types::DateTime::ButMaintained::coercions{"DateTime::Duration"} },
27	from Str, via {	27	from Str, via {