use strict;
use warnings;
-our $VERSION = "0.04";
+use 5.008003;
+use Moose 0.41 ();
+use DateTime 0.4302 ();
+use DateTime::Duration 0.4302 ();
+use DateTime::Locale 0.4001 ();
+use DateTime::TimeZone 0.95 ();
-use DateTime ();
-use DateTime::Locale ();
-use DateTime::TimeZone ();
+use MooseX::Types::Moose 0.30 qw/Num HashRef Str/;
-use MooseX::Types::Moose qw/Num HashRef Str/;
+use namespace::clean 0.08;
-use namespace::clean;
-
-use MooseX::Types -declare => [qw( DateTime Duration TimeZone Locale Now )];
+use MooseX::Types 0.30 -declare => [qw( DateTime Duration TimeZone Locale Now )];
class_type "DateTime";
class_type "DateTime::Duration";
subtype( Now,
as Str,
where { $_ eq 'now' },
- Moose::Util::TypeConstraints::optimize_as {
- no warnings 'uninitialized';
- !ref($_[0]) and $_[0] eq 'now';
- },
+ ($Moose::VERSION >= 2.0100
+ ? Moose::Util::TypeConstraints::inline_as {
+ 'no warnings "uninitialized";'.
+ '!ref(' . $_[1] . ') and '. $_[1] .' eq "now"';
+ }
+ : Moose::Util::TypeConstraints::optimize_as {
+ no warnings 'uninitialized';
+ !ref($_[0]) and $_[0] eq 'now';
+ }
+ ),
);
our %coercions = (
=back
+=back
+
+=back
+
=head1 SEE ALSO
-L<MooseX::Types::DateTimeX>
+L<MooseX::Types::DateTime::MoreCoercions>
L<DateTime>, L<DateTimeX::Easy>
=head1 VERSION CONTROL
-L<http://code2.0beta.co.uk/moose/svn/MooseX-Types-DateTime/trunk>. Ask on
-#moose for commit bits.
+This module is maintained using git. You can get the latest version from
+L<git://git.moose.perl.org/MooseX-Types-DateTime.git>.
=head1 AUTHOR