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