use MooseX::Types::Moose qw/Object ArrayRef/;
use DateTime;
-subtype 'DateTime'
- => as 'Object'
+subtype DateTime
+ => as Object
=> where { $_->isa('DateTime') }
=> message { "Must be of the form YYYY-MM-DD HH:MM:SS" };
use DateTime::SpanSet;
-subtype 'SpanSet'
- => as 'Object'
+subtype SpanSet
+ => as Object
=> where { $_->isa('DateTime::SpanSet') };
-subtype 'TimeRangeCollection'
- => as 'ArrayRef';
+subtype TimeRangeCollection
+ => as ArrayRef;
1;