Created MX:T:DateTimeX as extensions to the MX:T:DateTime, created test for new modul...

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

package MooseX::Types::DateTimeX;

use strict;
use warnings;

our $VERSION = "0.02";
our $AUTHORITY = 'cpan:JJNAPIORK';

use DateTime;
use DateTimeX::Easy; 
use MooseX::Types::DateTime;  
use MooseX::Types::Moose qw/Num HashRef Str/;
use MooseX::Types 
  -declare => [qw( DateTime )];
  
=head1 NAME

MooseX::Types::DateTimeX - Extensions to L<MooseX::Types::DateTime>

=head1 SYNOPSIS

	package MyApp::MyClass;
	
    use MooseX::Types::DateTimeX qw( DateTime );
	
    has created => (
        isa => DateTime,
        is => "rw",
        coerce => 1,
    );
	
	my $instance = MyApp::MyClass->new(created=>'January 1, 1980');
	print $instance->created->year; # is 1980
	
	## Coercions from the base type continue to work as normal.
	my $instance = MyApp::MyClass->new(created=>{year=>2000,month=>1,day=>10});

Please see the test case for more example usage.

=head1 DESCRIPTION

This module builds on L<MooseX::Types::DateTime> to add additional custom
types and coercions.  Since it builds on an existing type, all coercions and
constraints are inherited.

=head1 SUBTYPES

This module defines the following additional subtypes.

=head2 DateTime

Subtype of 'DateTime'.  Adds an additional coercion from strings.

Uses L<DateTimeX::Easy> to try and convert strings, like "yesterday" into a 
valid L<DateTime> object.  Please note that due to ambiguity with how different
systems might localize their timezone, string parsing may not always return 
the most expected value.  IN general we try to localize to UTC whenever
possible.  Feedback welcomed!

=cut

subtype DateTime,
  as 'DateTime'; ## From MooseX::Types::DateTime

coerce DateTime,
  from Num,
  via { 'DateTime'->from_epoch( epoch => $_ ) },
  from HashRef,
  via { 'DateTime'->new( %$_ ) },
  from Str,
  via { DateTimeX::Easy->new($_, default_time_zone=>'UTC') };


=head1 AUTHOR

John Napiorkowski E<lt>jjn1056 at yahoo.comE<gt>

=head1 COPYRIGHT

	Copyright (c) 2008 John Napiorkowski. All rights reserved
	This program is free software; you can redistribute
	it and/or modify it under the same terms as Perl itself.

=cut

1;