my
$form
= HTML::FormFu->new({
tt_args
=> {
INCLUDE_PATH
=>
'share/templates/tt/xhtml'
} });
$form
->element(
'Text'
)->name(
'foo'
);
$form
->element(
'Textarea'
)->name(
'bar'
)->
default
(
"Bar\n"
);
$form
->element(
'Textarea'
)->name(
'baz'
);
{
my
$xhtml
=
<<XHTML;
<form action="" method="post">
<div class="text">
<input name="foo" type="text" />
</div>
<div class="textarea">
<textarea name="bar" cols="40" rows="20">Bar
</textarea>
</div>
<div class="textarea">
<textarea name="baz" cols="40" rows="20"></textarea>
</div>
</form>
XHTML
is(
"$form"
,
$xhtml
);
}
$form
->output_processor(
'Indent'
);
{
my
$xhtml
=
<<XHTML;
<form action="" method="post">
<div class="text">
<input name="foo" type="text" />
</div>
<div class="textarea">
<textarea name="bar" cols="40" rows="20">Bar
</textarea>
</div>
<div class="textarea">
<textarea name="baz" cols="40" rows="20"></textarea>
</div>
</form>
XHTML
is(
"$form"
,
$xhtml
);
}