DateTime-Format-Flexible

 view release on metacpan or  search on metacpan

lib/DateTime/Format/Flexible/lang/de.pm  view on Meta::CPAN

        Minuten => 'minutes' ,
        Woche   => 'weeks',
        Wochen  => 'weeks',
    );
}

sub timezone_map
{
    # http://home.tiscali.nl/~t876506/TZworld.html
    return (
        CET  => 'Europe/Berlin',
        CEST => 'Europe/Berlin',
        MEZ  => 'Europe/Berlin', # German Version: Mitteleuropäische Zeit
        MESZ => 'Europe/Berlin', # Mitteleuropäische Sommerzeit
    );
}

1;
__END__

=encoding utf-8

lib/DateTime/Format/Flexible/lang/es.pm  view on Meta::CPAN

        minutos => 'minutes' ,
        semana  => 'weeks',
        semanas => 'weeks',
    );
}

sub timezone_map
{
    # http://home.tiscali.nl/~t876506/TZworld.html
    return (
        CET  => 'Europe/Madrid',
        CEST => 'Europe/Madrid',
        CST  => 'America/Cancun',
        CDT  => 'America/Cancun',
        MST  => 'America/Chihuahua',
        MDT  => 'America/Chihuahua',
        PST  => 'America/Tijuana',
        PDT  => 'America/Tijuana',
    );
}

t/data/timezones.txt  view on Meta::CPAN

Wed, Sep 12, 2012 => 2012-09-12T00:00:00 => floating
Wed, Sep 26, 2012 => 2012-09-26T00:00:00 => floating
2004-03-29T11:41:00Z => 2004-03-29T11:41:00 => UTC
Mon, 19 Jan 1998 08:11:34 +1030 => 1998-01-19T08:11:34 => +1030
1997020201:00:00+0100 => 1997-02-02T01:00:00 => +0100
19980102030405 EST => 1998-01-02T03:04:05 => America/New_York
20021216090000 -0500 => 2002-12-16T09:00:00 => -0500
5:30 pm GMT 121065 => 2065-12-10T17:30:00 => UTC
5:30 pm GMT 12/10/65 => 2065-12-10T17:30:00 => UTC
Tue Feb 28 14:30:00 UTC 2014 => 2014-02-28T14:30:00 => UTC
Tue, 11 Feb 2014 11:01:57 +0100 (CET) => 2014-02-11T11:01:57 => Europe/Berlin

t/timezones.t  view on Meta::CPAN

my @TZS = DateTime::TimeZone->all_names;
$num_tests += scalar( @TZS ) * 2;

plan tests => $num_tests;

# DateTime::TimeZone 2.63 normalized these timezone names and we are doing an internal conversion
# This compatibility map is for previous versions of DateTime::TimeZone so that
# our internal conversion continues to work correctly.
my $tz_map = {
    CET => 'Europe/Berlin',
    EST => 'America/New_York',
    HST => 'Pacific/Honolulu',
    MST => 'America/Denver',
};

{
    my $dt = DateTime::Format::Flexible->parse_datetime( '2009-10-06 GMT.' , strip => qr{\.\z} );
    is( $dt->datetime , '2009-10-06T00:00:00' , 'GMT. timezone parsed/stripped' );
    is( $dt->time_zone->name , 'UTC' , 'GMT. timezone set correctly to UTC' );
}