1use strict; 2 3use Test::More tests => 7; 4 5 6{ 7 eval q[ 8 package SampleClass1; 9 use DateTime::Format::Builder 10 parsers => { 11 parse_datetime => [ 12 { 13 regex => qr/^(\d{4})(\d\d)(d\d)(\d\d)(\d\d)(\d\d)$/, 14 params => [qw( year month day hour minute second )], 15 }, 16 { 17 regex => qr/^(\d{4})(\d\d)(\d\d)$/, 18 params => [qw( year month day )], 19 }, 20 ], 21 }; 22 ]; 23 ok( !$@, "No errors when creating the class." ); 24 25 my $parser = SampleClass1->new(); 26 isa_ok( $parser => 'SampleClass1' ); 27 28 my $dt = eval { $parser->parse_datetime( "20040506" ) }; 29 isa_ok( $dt => 'DateTime' ); 30 31 is( $dt->year => 2004, 'Year is 2004' ); 32 is( $dt->month => 5, 'Year is 2004' ); 33 is( $dt->day => 6, 'Year is 2004' ); 34 35 eval { $parser->fnerk }; 36 ok( $@, "There is no fnerk." ); 37} 38 39