File Coverage

blib/lib/Yahoo/Marketing/DateTimeAccessor.pm

Criterion	Covered	Total	%
statement	15	26	57.6
branch	0	6	0.0
condition	0	3	0.0
subroutine	5	7	71.4
pod	1	1	100.0
total	21	43	48.8

package Yahoo::Marketing::DateTimeAccessor;
# Copyright (c) 2009 Yahoo! Inc.  All rights reserved.
# The copyrights to the contents of this file are licensed under the Perl Artistic License (ver. 15 Aug 1997)

use strict; use warnings;
use base qw/ Class::Accessor::Chained /;

use DateTime::Format::W3CDTF;
use DateTime::Format::ISO8601;

sub _force_datetime_object {
    my ( $self, $value ) = @_;

    if( defined $value ){
        unless( ref $value ){  # not a date time object
            $value = DateTime::Format::ISO8601->new->parse_datetime( $value );
        }
        # let's hope it looks like a duck... er, DateTime object
        $value->set_formatter( DateTime::Format::W3CDTF->new );
    }

    return $value;
}

sub set {
    my ( $self, $key, @values ) = @_;

    if ( $key =~ /Date$/ || $key =~ /Timestamp$/ ){
        @values = map { $self->_force_datetime_object( $_ ) } @values;
    }

    $self->SUPER::set( $key, @values );
}

1;

__END__