use
strict;
use
warnings;
use
HTML::FormFu;
my
$form
= HTML::FormFu->new(
{
tt_args
=> {
INCLUDE_PATH
=>
'share/templates/tt/xhtml'
} } );
$form
->load_config_file(
't/form/render_processed_value.yml'
);
$form
->process( {
foo
=>
'27/04/2007'
,
bar
=>
'hello'
,
} );
# inflator has run
isa_ok(
$form
->params->{foo},
'DateTime'
);
# filter has run
is(
$form
->params->{foo}->year,
'2006'
);
is(
$form
->params->{bar},
'HELLO'
);
# deflator is run during render()
# maintains filtered value
like(
$form
->get_field(
'foo'
)->render,
qr|value="27/04/2006"|
);
# maintains filtered value
like(
$form
->get_field(
'bar'
)->render,
qr/value="HELLO"/
);