repository moved to https://github.com/moose/MooseX-Types-DateTime

[gitmo/MooseX-Types-DateTime.git] / lib / MooseX / Types / DateTime.pm

diff --git a/lib/MooseX/Types/DateTime.pm b/lib/MooseX/Types/DateTime.pm
index d8fc652..a808a4e 100644 (file)
--- a/lib/MooseX/Types/DateTime.pm
+++ b/lib/MooseX/Types/DateTime.pm
@@ -1,21 +1,20 @@
-#!/usr/bin/perl
-
 package MooseX::Types::DateTime;
 
 use strict;
 use warnings;
 
-our $VERSION = "0.04";
-
-use DateTime ();
-use DateTime::Locale ();
-use DateTime::TimeZone ();
+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 MooseX::Types::Moose qw/Num HashRef Str/;
+use MooseX::Types::Moose 0.30 qw/Num HashRef Str/;
 
-use namespace::clean;
+use namespace::clean 0.08;
 
-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,24 +29,30 @@ 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 = (
     DateTime => [
-               from Num, via { 'DateTime'->from_epoch( epoch => $_ ) },
-               from HashRef, via { 'DateTime'->new( %$_ ) },
-               from Now, via { 'DateTime'->now },
+        from Num, via { 'DateTime'->from_epoch( epoch => $_ ) },
+        from HashRef, via { 'DateTime'->new( %$_ ) },
+        from Now, via { 'DateTime'->now },
     ],
     "DateTime::Duration" => [
-               from Num, via { DateTime::Duration->new( seconds => $_ ) },
-               from HashRef, via { DateTime::Duration->new( %$_ ) },
+        from Num, via { DateTime::Duration->new( seconds => $_ ) },
+        from HashRef, via { DateTime::Duration->new( %$_ ) },
     ],
     "DateTime::TimeZone" => [
-               from Str, via { DateTime::TimeZone->new( name => $_ ) },
+        from Str, via { DateTime::TimeZone->new( name => $_ ) },
     ],
     "DateTime::Locale" => [
         from Moose::Util::TypeConstraints::find_or_create_isa_type_constraint("Locale::Maketext"),
@@ -65,11 +70,11 @@ for my $type ( "DateTime::Duration", Duration ) {
 }
 
 for my $type ( "DateTime::TimeZone", TimeZone ) {
-       coerce $type => @{ $coercions{"DateTime::TimeZone"} };
+    coerce $type => @{ $coercions{"DateTime::TimeZone"} };
 }
 
 for my $type ( "DateTime::Locale", Locale ) {
-       coerce $type => @{ $coercions{"DateTime::Locale"} };
+    coerce $type => @{ $coercions{"DateTime::Locale"} };
 }
 
 __PACKAGE__
@@ -87,7 +92,7 @@ Moose
 
 Export Example:
 
-       use MooseX::Types::DateTime qw(TimeZone);
+    use MooseX::Types::DateTime qw(TimeZone);
 
     has time_zone => (
         isa => TimeZone,
@@ -97,9 +102,11 @@ Export Example:
 
     Class->new( time_zone => "Africa/Timbuktu" );
 
+=for stopwords Namespaced
+
 Namespaced Example:
 
-       use MooseX::Types::DateTime;
+    use MooseX::Types::DateTime;
 
     has time_zone => (
         isa => 'DateTime::TimeZone',
@@ -126,8 +133,8 @@ A class type for L<DateTime>.
 
 =item from C<Num>
 
-Uses L<DateTime/from_epoch>. Floating values will be used for subsecond
-percision, see L<DateTime> for details.
+Uses L<DateTime/from_epoch>. Floating values will be used for sub-second
+precision, see L<DateTime> for details.
 
 =item from C<HashRef>
 
@@ -192,15 +199,10 @@ Delegates to L<DateTime::TimeZone/new> with the string as the C<name> argument.
 
 =head1 SEE ALSO
 
-L<MooseX::Types::DateTimeX>
+L<MooseX::Types::DateTime::MoreCoercions>
 
 L<DateTime>, L<DateTimeX::Easy>
 
-=head1 VERSION CONTROL
-
-This module is maintained using git. You can get the latest version from
-L<git://github.com/nothingmuch/moosex-types-datetime.git>.
-
 =head1 AUTHOR
 
 Yuval Kogman E<lt>nothingmuch@woobling.orgE<gt>
@@ -209,8 +211,8 @@ John Napiorkowski E<lt>jjn1056 at yahoo.comE<gt>
 
 =head1 COPYRIGHT
 
-       Copyright (c) 2008 Yuval Kogman. All rights reserved
-       This program is free software; you can redistribute
-       it and/or modify it under the same terms as Perl itself.
+    Copyright (c) 2008 Yuval Kogman. All rights reserved
+    This program is free software; you can redistribute
+    it and/or modify it under the same terms as Perl itself.
 
 =cut