do not include .git directory
[catagits/Reaction.git] / lib / Reaction / Types / DateTime.pm
index 60fbabd..c696d03 100644 (file)
@@ -1,22 +1,24 @@
 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;