File Coverage

blib/lib/HTML/FormHandler/Meta/Role.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package # hide from Pause
2             HTML::FormHandler::Meta::Role;
3             # ABSTRACT: field_list and apply_list
4              
5 145     145   67139 use Moose::Role;
  145         607049  
  145         739  
6              
7              
8             has 'field_list' => (
9             traits => ['Array'],
10             is => 'rw',
11             isa => 'ArrayRef',
12             default => sub { [] },
13             handles => {
14             add_to_field_list => 'push',
15             clear_field_list => 'clear',
16             has_field_list => 'count',
17             }
18             );
19              
20             has 'apply_list' => (
21             traits => ['Array'],
22             is => 'rw',
23             isa => 'ArrayRef',
24             default => sub { [] },
25             handles => {
26             add_to_apply_list => 'push',
27             has_apply_list => 'count',
28             clear_apply_list => 'clear',
29             }
30             );
31              
32             has 'page_list' => (
33             traits => ['Array'],
34             is => 'rw',
35             isa => 'ArrayRef',
36             default => sub { [] },
37             handles => {
38             add_to_page_list => 'push',
39             has_page_list => 'count',
40             clear_page_list => 'clear',
41             }
42             );
43              
44             has 'block_list' => (
45             traits => ['Array'],
46             is => 'rw',
47             isa => 'ArrayRef',
48             default => sub { [] },
49             handles => {
50             add_to_block_list => 'push',
51             has_block_list => 'count',
52             clear_block_list => 'clear',
53             }
54             );
55              
56             has 'found_hfh' => ( is => 'rw', default => '0' );
57              
58 145     145   905569 use namespace::autoclean;
  145         870391  
  145         756  
59             1;
60              
61             __END__
62              
63             =pod
64              
65             =encoding UTF-8
66              
67             =head1 NAME
68              
69             HTML::FormHandler::Meta::Role - field_list and apply_list
70              
71             =head1 VERSION
72              
73             version 0.40068
74              
75             =head1 SYNOPSIS
76              
77             Add metaclass to field_list attribute
78              
79             =head1 AUTHOR
80              
81             FormHandler Contributors - see HTML::FormHandler
82              
83             =head1 COPYRIGHT AND LICENSE
84              
85             This software is copyright (c) 2017 by Gerda Shank.
86              
87             This is free software; you can redistribute it and/or modify it under
88             the same terms as the Perl 5 programming language system itself.
89              
90             =cut