File Coverage

blib/lib/HTML/FormHandler/Page.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 11 12 91.6


line stmt bran cond sub pod time code
1             package HTML::FormHandler::Page;
2             # ABSTRACT: used in Wizard
3             $HTML::FormHandler::Page::VERSION = '0.40068';
4 1     1   437 use Moose;
  1         2  
  1         6  
5             with 'HTML::FormHandler::Pages';
6              
7             has 'name' => ( is => 'ro', isa => 'Str' );
8              
9             has 'form' => (
10             isa => 'HTML::FormHandler',
11             is => 'rw',
12             weak_ref => 1,
13             predicate => 'has_form',
14             );
15              
16             has 'fields' => (
17             traits => ['Array'],
18             isa => 'ArrayRef[Str]',
19             is => 'rw',
20             default => sub { [] },
21             handles => {
22             all_fields => 'elements',
23             clear_fields => 'clear',
24             push_field => 'push',
25             num_fields => 'count',
26             has_fields => 'count',
27             }
28             );
29              
30             sub field {
31 2     2 0 7 my ( $self, $field_name ) = @_;
32              
33 2         56 return $self->form->field($field_name);
34             }
35              
36             __PACKAGE__->meta->make_immutable;
37 1     1   4136 use namespace::autoclean;
  1         3  
  1         9  
38             1;
39              
40             __END__
41              
42             =pod
43              
44             =encoding UTF-8
45              
46             =head1 NAME
47              
48             HTML::FormHandler::Page - used in Wizard
49              
50             =head1 VERSION
51              
52             version 0.40068
53              
54             =head1 AUTHOR
55              
56             FormHandler Contributors - see HTML::FormHandler
57              
58             =head1 COPYRIGHT AND LICENSE
59              
60             This software is copyright (c) 2017 by Gerda Shank.
61              
62             This is free software; you can redistribute it and/or modify it under
63             the same terms as the Perl 5 programming language system itself.
64              
65             =cut