1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
use strict;
use warnings;
use Test::More tests => 4;
use Data::Clone;
use HTML::FormHandler;
my $field_list = [
id => {
type => 'Text',
required => 1,
},
submit => 'Submit',
];
my $form = HTML::FormHandler->new( field_list => $field_list );
ok( $form, 'created form OK the first time');
ok( $form->field('id'), 'id field exists' );
$form = HTML::FormHandler->new( field_list => [@{$field_list}, new_field => 'Text'] );
ok( $form, 'created form OK the second time' );
ok( $form->field('id'), 'id field exists' );
|
