use
strict;
use
warnings;
use
HTML::FormFu;
my
$form
= HTML::FormFu->new;
$form
->element(
'Text'
)->name(
'foo'
)->filter(
'Whitespace'
);
my
$original_foo
=
"Foo Bar"
;
my
$filtered_foo
=
"FooBar"
;
$form
->process( {
foo
=>
$original_foo
, } );
# foo is filtered
is(
$form
->param(
'foo'
),
$filtered_foo
,
'foo filtered'
);
is(
$form
->params->{foo},
$filtered_foo
,
'foo filtered'
);