1use strict; 2use warnings; 3 4use Test::More tests => 4; 5 6use HTML::FormFu; 7 8my $form = HTML::FormFu->new; 9 10$form->auto_fieldset( { nested_name => 'foo' } ); 11 12# attach to field 13$form->element('Text')->name('bar')->inflator('DateTime') 14 ->parser( { strptime => '%d/%m/%Y' } )->strptime('%d/%m/%Y'); 15 16$form->element('Text')->name('baz'); 17 18# attach via form 19$form->inflator( 20 { type => 'DateTime', 21 name => 'foo.baz', 22 parser => { strptime => '%d/%m/%Y' }, 23 strptime => { pattern => '%m-%d-%Y' }, 24 } ); 25 26$form->process( 27 { 'foo.bar' => '31/12/2006', 28 'foo.baz' => '1/07/2007', 29 } ); 30 31{ 32 my $value = $form->param('foo.bar'); 33 34 isa_ok( $value, 'DateTime' ); 35 is( $value, "31/12/2006" ); 36} 37 38{ 39 my $value = $form->param('foo.baz'); 40 41 isa_ok( $value, 'DateTime' ); 42 is( $value, "07-01-2007" ); 43} 44 45