use strict; use warnings; use Test::More tests => 2; use HTML::FormFu; my $form = HTML::FormFu->new({ tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } }); my $field = $form->element('ContentButton')->name('foo'); # add more elements to test accessor output $form->element('ContentButton')->name('bar')->content_xml('

button

'); $form->element('ContentButton')->name('baz')->content('x') ->field_type('submit'); $form->element('ContentButton')->name('baf')->field_type('reset'); my $field_xhtml = qq{
}; is( "$field", $field_xhtml, 'stringified field' ); my $form_xhtml = < $field_xhtml
EOF is( "$form", $form_xhtml, 'stringified form' );