my
$form
= HTML::FormFu->new->action(
'/foo/bar'
)->id(
'form'
);
my
$fs
=
$form
->element(
'Fieldset'
)->legend(
'Jimi'
);
$fs
->element(
'Text'
)->name(
'age'
)->label(
'Age'
)->comment(
'x'
)->constraints( [ {
type
=>
'Integer'
,
message
=>
'No integer.'
,
},
{
type
=>
'Integer'
,
message
=>
'This too!'
,
},
] );
$fs
->element(
'Text'
)->name(
'name'
)->label(
'Name'
);
$fs
->element(
'Hidden'
)->name(
'ok'
)->value(
'OK'
);
$fs
->constraint( {
type
=>
'Required'
,
names
=> [
qw/ age name /
],
message
=>
'Missing value.'
,
} );
$fs
->filter(
'HTMLEscape'
);
my
$alt_form
= HTML::FormFu->new->load_config_file(
't/load_config_file_form.yml'
);
is_deeply(
$alt_form
,
$form
);
my
$xhtml
=
<<EOF;
<form action="/foo/bar" id="form" method="post">
<fieldset>
<legend>Jimi</legend>
<span class="text comment label">
<label>Age</label>
<input name="age" type="text" />
<span class="comment">
x
</span>
</span>
<span class="text label">
<label>Name</label>
<input name="name" type="text" />
</span>
<input name="ok" type="hidden" value="OK" />
</fieldset>
</form>
EOF
is(
"$form"
,
$xhtml
);