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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
use strict;
use warnings;
use Test::More;
use HTML::FormHandler::Test;
use HTML::FormHandler::Field::Text;
my $field = HTML::FormHandler::Field::Text->new( name => 'test' );
my $string = '"J.Doe" <jdoe@gmail.com>';
my $output = $field->html_filter($string);
is( $output, '"J.Doe" <jdoe@gmail.com>', 'output ok' );
{
package Test::RenderFilter;
use HTML::FormHandler::Moose;
extends 'HTML::FormHandler';
has_field 'foo';
has_field 'bar';
sub render_filter {
my $string = shift;
$string =~ s/my/MY/g;
return $string;
}
}
my $form = Test::RenderFilter->new;
ok( $form, 'form builds' );
$form->process( params => { foo => 'This is my test' } );
like( $form->field('foo')->render, qr/MY/, 'rendering was filters' );
{
package Test::FieldFilter;
use HTML::FormHandler::Moose;
extends 'HTML::FormHandler';
has_field 'foo' => ( render_filter => \&foo_render );
has_field 'bar' => ( render_filter => sub { shift } );
sub foo_render {
my $string = shift;
$string =~ s/yours/YOURS/g;
return $string;
}
}
$form = Test::FieldFilter->new;
$form->process( params => { foo => "What's mine is yours", bar => '<what a hoot>' } );
is_html( $form->field('bar')->render, '
<div><label for="bar">Bar</label><input type="text" name="bar" id="bar" value="<what a hoot>" />
</div>', 'renders ok' );
is_html( $form->field('foo')->render, '
<div><label for="foo">Foo</label><input type="text" name="foo" id="foo" value="What\'s mine is YOURS" />
</div>', 'renders ok' );
done_testing;
|
