-#!/usr/bin/perl
-
package MooseX::Types::DateTime;
use strict;
use warnings;
-our $VERSION = "0.01";
+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 0.30 qw/Num HashRef Str/;
-use DateTime ();
-use DateTime::Locale ();
-use DateTime::TimeZone ();
+use namespace::clean 0.08;
-use Moose::Util::TypeConstraints;
+use MooseX::Types 0.30 -declare => [qw( DateTime Duration TimeZone Locale Now )];
class_type "DateTime";
+class_type "DateTime::Duration";
class_type "DateTime::TimeZone";
class_type "DateTime::Locale::root" => { name => "DateTime::Locale" };
-coerce "DateTime" => (
- from "Int",
- via { DateTime->from_epoch( epoch => $_ ) },
+subtype DateTime, as 'DateTime';
+subtype Duration, as 'DateTime::Duration';
+subtype TimeZone, as 'DateTime::TimeZone';
+subtype Locale, as 'DateTime::Locale';
+
+subtype( Now,
+ as Str,
+ where { $_ 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';
+ }
+ ),
);
-coerce "DateTime::TimeZone" => (
- from "Str",
- via { DateTime::TimeZone->new( name => $_ ) },
+our %coercions = (
+ DateTime => [
+ 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( %$_ ) },
+ ],
+ "DateTime::TimeZone" => [
+ from Str, via { DateTime::TimeZone->new( name => $_ ) },
+ ],
+ "DateTime::Locale" => [
+ from Moose::Util::TypeConstraints::find_or_create_isa_type_constraint("Locale::Maketext"),
+ via { DateTime::Locale->load($_->language_tag) },
+ from Str, via { DateTime::Locale->load($_) },
+ ],
);
-coerce "DateTime::Locale" => (
- from Moose::Util::TypeConstraints::find_or_create_isa_type_constraint("Locale::Maketext"),
- via { DateTime::Locale->load($_->language_tag) },
- from "Str",
- via { DateTime::Locale->load($_) },
-);
+for my $type ( "DateTime", DateTime ) {
+ coerce $type => @{ $coercions{DateTime} };
+}
+
+for my $type ( "DateTime::Duration", Duration ) {
+ coerce $type => @{ $coercions{"DateTime::Duration"} };
+}
+
+for my $type ( "DateTime::TimeZone", TimeZone ) {
+ coerce $type => @{ $coercions{"DateTime::TimeZone"} };
+}
+
+for my $type ( "DateTime::Locale", Locale ) {
+ coerce $type => @{ $coercions{"DateTime::Locale"} };
+}
__PACKAGE__
=head1 SYNOPSIS
- use MooseX::Types::DateTime;
+Export Example:
+
+ use MooseX::Types::DateTime qw(TimeZone);
has time_zone => (
- isa => "DateTime::TimeZone",
+ isa => TimeZone,
+ is => "rw",
+ coerce => 1,
+ );
+
+ Class->new( time_zone => "Africa/Timbuktu" );
+
+=for stopwords Namespaced
+
+Namespaced Example:
+
+ use MooseX::Types::DateTime;
+
+ has time_zone => (
+ isa => 'DateTime::TimeZone',
is => "rw",
coerce => 1,
);
=item L<DateTime>
-A coercion from C<Int> using L<DateTime/from_epoch> is defined.
+A class type for L<DateTime>.
+
+=over 4
+
+=item from C<Num>
+
+Uses L<DateTime/from_epoch>. Floating values will be used for sub-second
+precision, see L<DateTime> for details.
+
+=item from C<HashRef>
+
+Calls L<DateTime/new> with the hash entries as arguments.
+
+=back
+
+=item L<Duration>
+
+A class type for L<DateTime::Duration>
+
+=over 4
+
+=item from C<Num>
+
+Uses L<DateTime::Duration/new> and passes the number as the C<seconds> argument.
+
+Note that due to leap seconds, DST changes etc this may not do what you expect.
+For instance passing in C<86400> is not always equivalent to one day, although
+there are that many seconds in a day. See L<DateTime/"How Date Math is Done">
+for more details.
+
+=item from C<HashRef>
+
+Calls L<DateTime::Duration/new> with the hash entries as arguments.
+
+=back
=item L<DateTime::Locale>
-Coerces from C<Str>, where the string is the language tag, e.g. C<en> etc. See
+A class type for L<DateTime::Locale::root> with the name L<DateTime::Locale>.
+
+=over 4
+
+=item from C<Str>
+
+The string is treated as a language tag (e.g. C<en> or C<he_IL>) and given to
L<DateTime::Locale/load>.
+=item from L<Locale::Maktext>
+
+The C<Locale::Maketext/language_tag> attribute will be used with L<DateTime::Locale/load>.
+
=item L<DateTime::TimeZone>
-Coerces from C<Str> where the string is any time zone name.
+A class type for L<DateTime::TimeZone>.
+
+=over 4
+
+=item from C<Str>
-The string may also be a number of special values (C<local>, C<floating>,
-offsets, etc). See L<DateTime::TimeZone/USAGE> for details.
+Treated as a time zone name or offset. See L<DateTime::TimeZone/USAGE> for more
+details on the allowed values.
-=head1 VERSION CONTROL
+Delegates to L<DateTime::TimeZone/new> with the string as the C<name> argument.
-L<http://code2.0beta.co.uk/moose/svn/MooseX-Types-DateTime/trunk>. Ask on
-#moose for commit bits.
+=back
+
+=back
+
+=back
+
+=head1 SEE ALSO
+
+L<MooseX::Types::DateTime::MoreCoercions>
+
+L<DateTime>, L<DateTimeX::Easy>
=head1 AUTHOR
Yuval Kogman E<lt>nothingmuch@woobling.orgE<gt>
+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