1use strict; 2use warnings; 3 4use Test::More; 5 6use DateTime::Format::Builder; 7 8{ 9 my $parser = DateTime::Format::Builder->parser( 10 { 11 params => [qw( year month day hour minute second )], 12 regex => qr/^(\d\d\d\d)(\d\d)(\d\d)T(\d\d)(\d\d)(\d\d)$/, 13 extra => { time_zone => 'America/Chicago' }, 14 } 15 ); 16 17 my $dt = $parser->parse_datetime("20030716T163245"); 18 19 is( $dt->time_zone->name, 'America/Chicago' ); 20} 21 22done_testing(); 23