-#!/usr/bin/perl
-
package MooseX::Types::DateTime;
use strict;
use warnings;
-our $VERSION = "0.07";
-
+use 5.008003;
use Moose 0.41 ();
use DateTime 0.4302 ();
use DateTime::Duration 0.4302 ();
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"),
}
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__
Export Example:
- use MooseX::Types::DateTime qw(TimeZone);
+ use MooseX::Types::DateTime qw(TimeZone);
has time_zone => (
isa => TimeZone,
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',
=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>
=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>
=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