DateTimeFactoryをかいてみた

DateTime使っていると割りとTimeZoneを指定し忘れて８時間ずれるとかあったりして死ねたり、
DateTime::Format::Strptimeをいちいちuseするのが面倒だったりしたりするのでかいてみた。

    use strict;
    use warnings;

    use DateTimeFactory;
    use DateTime::TimeZone;
    
    my $dtf = DateTimeFactory->create({
        time_zone => DateTime::TimeZone->new( name => 'Asia/Tokyo' )    
    });

    my $now   = $dtf->now();
    my $today = $dtf->today();

    my $dt    = $dtf->strptime({
        string  => "2012-01-01 00:00:00",
        pattern => "%Y-%m-%d %H:%M:%S",
    });

https://github.com/hiroyukim/DateTimeFactory