# we need to comment this out or PAUSE might index it

# pack age DateTime::Format::Tivoli;

use DateTime::Format::Builder (

    parsers => {

        parse_datetime => {

            strptime => '%h %e %k:%M:%S %Y',

        },

    },

);

sub format_datetime {

    my ( $self, $dt ) = @_;

    my $z = $dt->clone->set_time_zone('GMT');

    return $z->strftime('%h %e %k:%M:%S %Y');

}

package main;

my $parser = DateTime::Format::Tivoli->new();

my @dates = ( 'Nov  5 22:49:45 2003', '27/Apr/2003:19:45:11 -0400' );

for my $date (@dates) {

    my $dt

        = $parser->parse_datetime($date)->set_time_zone('Australia/Sydney');

    print "$date => ", $dt->datetime, " => ", $parser->format_datetime($dt),

        "\n";

}