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
|
use strict;
use warnings;
use Test::More;
{
package Test::Render;
use Moose::Role;
sub render {
my $self = shift;
my $output .= $self->render_start;
$output .= '<p>This is the rendering role</p>';
$output .= $self->render_end;
}
}
{
package Test::Form;
use HTML::FormHandler::Moose;
extends 'HTML::FormHandler';
with 'Test::Render';
has_field 'foo';
has_field 'bar';
}
my $form = Test::Form->new;
my $render = $form->render;
like( $render, qr/This is the rendering role/, 'rendered using role' );
like( $render, qr/<form/, 'form tag rendered' );
done_testing;
|
