1use strict; 2use warnings; 3 4use Test::More tests => 2; 5 6use HTML::FormFu; 7 8my $form = HTML::FormFu->new; 9 10$form->element('Text')->name('foo')->inflator('DateTime') 11 ->parser( { strptime => '%Y-%m-%d %H:%M' } ) 12 ->strptime('%H:%M [%Y-%m-%d] %z')->time_zone('Europe/Rome'); 13 14$form->process( { foo => '2008-07-23 08:52', } ); 15 16is( ref $form->params->{foo}->time_zone, 'DateTime::TimeZone::Europe::Rome' ); 17is( $form->params->{foo}, '08:52 [2008-07-23] +0200' ); 18