X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FTypes%2FDateTime.pm;h=3b38cb9a0031c058f2532f5afaad90c769b3a6cd;hb=c003a0c6e290f1c3b2a896389b2cc3d04d9770e3;hp=0ced3adc6a60ba1615c83ee3f40d9f05783c35b3;hpb=76f3a6330020aebda597f2ef2b924f32669fb568;p=gitmo%2FMooseX-Types-DateTime.git

diff --git a/lib/MooseX/Types/DateTime.pm b/lib/MooseX/Types/DateTime.pm
index 0ced3ad..3b38cb9 100644
--- a/lib/MooseX/Types/DateTime.pm
+++ b/lib/MooseX/Types/DateTime.pm
@@ -5,17 +5,18 @@ package MooseX::Types::DateTime;
 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";
@@ -30,10 +31,16 @@ subtype Locale,   as 'DateTime::Locale';
 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 = (
@@ -186,16 +193,20 @@ Delegates to L<DateTime::TimeZone/new> with the string as the C<name> argument.
 
 =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