package Reaction::Types::DateTime;
-use Moose::Util::TypeConstraints;
+use MooseX::Types
+ -declare => [qw/DateTime SpanSet TimeRangeCollection/];
+use MooseX::Types::Moose qw/Object ArrayRef/;
use DateTime;
-subtype 'DateTime'
- => as 'Object'
- => where { $_->isa('DateTime') }
- => message { "Must be of the form YYYY-MM-DD HH:MM:SS" };
+subtype DateTime,
+ as Object,
+ where { $_->isa('DateTime') },
+ message { "Please enter a date and time" };
use DateTime::SpanSet;
-subtype 'DateTime::SpanSet'
- => as 'Object'
- => where { $_->isa('DateTime::SpanSet') };
+subtype SpanSet,
+ as Object,
+ where { $_->isa('DateTime::SpanSet') };
-subtype 'TimeRangeCollection'
- => as 'ArrayRef';
+subtype TimeRangeCollection,
+ as ArrayRef;
1;