Commit | Line | Data |
---|---|---|
7adfd53f | 1 | package Reaction::Types::DateTime; |
2 | ||
e739c9a2 | 3 | use MooseX::Types |
abc28589 | 4 | -declare => [qw/DateTime SpanSet TimeRangeCollection/]; |
7adfd53f | 5 | |
e739c9a2 | 6 | use MooseX::Types::Moose qw/Object ArrayRef/; |
7adfd53f | 7 | use DateTime; |
8 | ||
abc28589 | 9 | subtype DateTime, |
d9a3266f | 10 | as Object, |
11 | where { $_->isa('DateTime') }, | |
12 | message { "Must be of the form YYYY-MM-DD HH:MM:SS" }; | |
7adfd53f | 13 | |
14 | use DateTime::SpanSet; | |
15 | ||
d9a3266f | 16 | subtype SpanSet, |
17 | as Object, | |
18 | where { $_->isa('DateTime::SpanSet') }; | |
7adfd53f | 19 | |
d9a3266f | 20 | subtype TimeRangeCollection, |
21 | as ArrayRef; | |
7adfd53f | 22 | |
23 | 1; | |
24 | ||
25 | =head1 NAME | |
26 | ||
27 | Reaction::Types::DateTime | |
28 | ||
29 | =head1 DESCRIPTION | |
30 | ||
31 | =over | |
32 | ||
33 | =item * DateTime | |
34 | ||
35 | =item * DateTime::SpanSet | |
36 | ||
37 | =item * TimeRangeCollection | |
38 | ||
39 | =back | |
40 | ||
41 | =head1 SEE ALSO | |
42 | ||
43 | =over | |
44 | ||
45 | =item * L<Reaction::Types::Core> | |
46 | ||
47 | =back | |
48 | ||
49 | =head1 AUTHORS | |
50 | ||
51 | See L<Reaction::Class> for authors. | |
52 | ||
53 | =head1 LICENSE | |
54 | ||
55 | See L<Reaction::Class> for the license. | |
56 | ||
57 | =cut |