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; |