Moose::Role fixed for new moose

[catagits/Reaction.git] / lib / Reaction / Types / DateTime.pm

package Reaction::Types::DateTime;

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" };

use DateTime::SpanSet;

subtype '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