view release on metacpan or  search on metacpan

lib/BusyBird/DateTime/Format.pm  view on Meta::CPAN

use strict;
use warnings;
use DateTime::Format::Strptime;
use Try::Tiny;

our $VERSION = "0.05";

our $preferred = 0;

my %OPT_DEFAULT = (
    locale => 'en_US',
    on_error => 'undef',
);

my @FORMATS = (
    DateTime::Format::Strptime->new(
        %OPT_DEFAULT,
        pattern => '%a %b %d %T %z %Y',
    ),
    DateTime::Format::Strptime->new(
        %OPT_DEFAULT,

t/parse_format.t  view on Meta::CPAN

use DateTime;
use Test::More;

BEGIN {
    use_ok('BusyBird::DateTime::Format');
}

my $formatter = 'BusyBird::DateTime::Format';

sub DT {
    my ($year, $month, $day, $hour, $minute, $second, $time_zone, $locale) = @_;
    return DateTime->new(
        year => $year,
        month => $month,
        day => $day,
        hour => $hour,
        minute => $minute,
        second => $second,
        time_zone => $time_zone,
        (defined($locale) ? (locale => $locale) : ())
    );
}

sub checkParse {
    my ($str, $exp_dt) = @_;
    my $got_dt = $formatter->parse_datetime($str);
    if(defined($exp_dt)) {
        cmp_ok(DateTime->compare($got_dt, $exp_dt), '==', 0, "parsed to $exp_dt");
    }else {
        ok(!defined($got_dt), "expect to fail parsing");