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