aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Reaction/Types/DateTime.pm
diff options
context:
space:
mode:
authormatthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>2007-09-12 18:11:34 +0000
committermatthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>2007-09-12 18:11:34 +0000
commit7adfd53f17f66ffe93763e944ed1d3fc52a369dc (patch)
tree19e599e74419b41cbbe651fd226b81e8b73551d3 /lib/Reaction/Types/DateTime.pm
parentc728c97cb1061330e63c7cc048e768ef74988fe6 (diff)
downloadreaction-7adfd53f17f66ffe93763e944ed1d3fc52a369dc.tar.gz
reaction-7adfd53f17f66ffe93763e944ed1d3fc52a369dc.zip
moved shit to trunk
Diffstat (limited to 'lib/Reaction/Types/DateTime.pm')
-rw-r--r--lib/Reaction/Types/DateTime.pm55
1 files changed, 55 insertions, 0 deletions
diff --git a/lib/Reaction/Types/DateTime.pm b/lib/Reaction/Types/DateTime.pm
new file mode 100644
index 0000000..60fbabd
--- /dev/null
+++ b/lib/Reaction/Types/DateTime.pm
@@ -0,0 +1,55 @@
+package Reaction::Types::DateTime;
+
+use Moose::Util::TypeConstraints;
+
+use DateTime;
+
+subtype 'DateTime'
+ => as 'Object'
+ => where { $_->isa('DateTime') }
+ => message { "Must be of the form YYYY-MM-DD HH:MM:SS" };
+
+use DateTime::SpanSet;
+
+subtype 'DateTime::SpanSet'
+ => as 'Object'
+ => where { $_->isa('DateTime::SpanSet') };
+
+subtype 'TimeRangeCollection'
+ => as 'ArrayRef';
+
+1;
+
+=head1 NAME
+
+Reaction::Types::DateTime
+
+=head1 DESCRIPTION
+
+=over
+
+=item * DateTime
+
+=item * DateTime::SpanSet
+
+=item * TimeRangeCollection
+
+=back
+
+=head1 SEE ALSO
+
+=over
+
+=item * L<Reaction::Types::Core>
+
+=back
+
+=head1 AUTHORS
+
+See L<Reaction::Class> for authors.
+
+=head1 LICENSE
+
+See L<Reaction::Class> for the license.
+
+=cut