File Coverage

blib/lib/HTML/FormFu/Role/GetProcessors.pm
Criterion Covered Total %
statement 54 54 100.0
branch n/a
condition n/a
subroutine 10 10 100.0
pod 0 7 0.0
total 64 71 90.1


line stmt bran cond sub pod time code
1             package HTML::FormFu::Role::GetProcessors;
2              
3 400     400   165175 use strict;
  400         575  
  400         15443  
4             our $VERSION = '2.05'; # VERSION
5              
6 400     400   1509 use Moose::Role;
  400         583  
  400         2275  
7              
8 400         168380 use HTML::FormFu::Util qw(
9             _parse_args
10             _filter_components
11 400     400   1329763 );
  400         592  
12              
13             sub get_deflators {
14 4     4 0 589 my $self = shift;
15 4         12 my %args = _parse_args(@_);
16              
17 4         5 my @x = map { @{ $_->get_deflators(@_) } } @{ $self->_elements };
  8         8  
  8         24  
  4         95  
18              
19 4         11 return _filter_components( \%args, \@x );
20             }
21              
22             sub get_filters {
23 623     623 0 2052 my $self = shift;
24 623         1794 my %args = _parse_args(@_);
25              
26 623         743 my @x = map { @{ $_->get_filters(@_) } } @{ $self->_elements };
  1346         1098  
  1346         3764  
  623         14179  
27              
28 623         1478 return _filter_components( \%args, \@x );
29             }
30              
31             sub get_constraints {
32 634     634 0 2097 my $self = shift;
33 634         1427 my %args = _parse_args(@_);
34              
35 634         1093 my @x = map { @{ $_->get_constraints(@_) } } @{ $self->_elements };
  1360         1111  
  1360         3761  
  634         13589  
36              
37 634         1521 return _filter_components( \%args, \@x );
38             }
39              
40             sub get_inflators {
41 429     429 0 1107 my $self = shift;
42 429         1113 my %args = _parse_args(@_);
43              
44 429         1060 my @x = map { @{ $_->get_inflators(@_) } } @{ $self->_elements };
  912         1115  
  912         2499  
  429         9326  
45              
46 429         1049 return _filter_components( \%args, \@x );
47             }
48              
49             sub get_validators {
50 421     421 0 525 my $self = shift;
51 421         982 my %args = _parse_args(@_);
52              
53 421         519 my @x = map { @{ $_->get_validators(@_) } } @{ $self->_elements };
  897         748  
  897         2421  
  421         9122  
54              
55 421         1324 return _filter_components( \%args, \@x );
56             }
57              
58             sub get_transformers {
59 420     420 0 526 my $self = shift;
60 420         1027 my %args = _parse_args(@_);
61              
62 420         824 my @x = map { @{ $_->get_transformers(@_) } } @{ $self->_elements };
  895         1016  
  895         2648  
  420         9279  
63              
64 420         1014 return _filter_components( \%args, \@x );
65             }
66              
67             sub get_plugins {
68 1545     1545 0 1717 my $self = shift;
69 1545         3973 my %args = _parse_args(@_);
70              
71 1545         33801 return _filter_components( \%args, $self->_plugins );
72             }
73              
74             1;