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
|
use strict;
use warnings;
use Test::More tests => 6;
use HTML::FormFu;
my $form = HTML::FormFu->new;
$form->element('Text')->name('foo');
$form->element('Submit')->name('submit')->non_param(1);
# Required constraint not affected by non_param()
$form->constraints('Required');
# indicator not affected by non_param()
$form->indicator('submit');
$form->process( {
foo => 1,
submit => 'Submit',
} );
is( $form->param('foo'), 1 );
ok( !$form->param('submit') );
is_deeply( [ $form->valid ], ['foo'] );
ok( $form->valid('foo') );
ok( !$form->valid('submit') );
is_deeply( $form->params, { foo => 1, } );
|
