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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
use Test::More tests => 2;
use HTML::FormHandler::Field::Text;
use HTML::FormHandler::Field;
{
package My::Form;
use HTML::FormHandler::Moose;
extends 'HTML::FormHandler';
has '+name' => ( default => 'testform' );
sub field_list {
[
meat => 'Text',
starch => { required => 1 },
fruit => 'Select',
]
}
sub options_fruit {
return (
1 => 'apples',
2 => 'oranges',
3 => 'kiwi',
);
}
}
my $form = My::Form->new;
ok( $form, 'get form' );
my $field = HTML::FormHandler::Field::Text->new( name => 'Testfield' );
$form->push_field($field);
ok( $form->field('Testfield'), 'form now has test field' );
|
