| line |
true |
false |
branch |
|
22
|
2 |
0 |
if defined $arg
|
|
28
|
0 |
0 |
if defined $arg
|
|
34
|
0 |
37 |
if defined $arg
|
|
43
|
7 |
6 |
if (ref $proto[0])
|
|
62
|
0 |
4 |
if (ref $proto[0])
|
|
78
|
0 |
9 |
unless $self->_current
|
|
83
|
0 |
0 |
unless $self->_current
|
|
88
|
0 |
1 |
unless $self->_current
|
|
92
|
3 |
29 |
if $a eq ""
|
|
93
|
7 |
22 |
if $b eq ""
|
|
99
|
58 |
63 |
unless $self->_flatten_array_value
|
|
100
|
2 |
61 |
(ref $value || '') eq 'ARRAY' ? :
|
|
105
|
2 |
15 |
$self->_src eq 'data' ? :
|
|
114
|
27 |
120 |
if (ref $rule or !1) { }
|
|
120
|
645 |
72 |
unless defined $i
|
|
125
|
0 |
27 |
if $found_array_depth > $self->max_array_depth
|
|
133
|
15 |
21 |
unless @$cloned_rules
|
|
135
|
6 |
30 |
if $index eq ""
|
|
137
|
6 |
30 |
if ($index eq '' and $old) { }
|
|
139
|
1 |
5 |
if ((ref $value || '') eq 'ARRAY') { }
|
|
|
5 |
0 |
elsif ((ref $value || '') eq 'HASH') { }
|
|
142
|
2 |
3 |
if (ref $$value{$indexes{$index}}) { }
|
|
151
|
1 |
29 |
if (ref $value || '') eq "HASH" and not %$value
|
|
156
|
20 |
100 |
if ((ref $rules->[0] || '') eq 'ARRAY') { }
|
|
158
|
7 |
13 |
unless %$value
|
|
161
|
15 |
85 |
if ($rule eq '') { }
|
|
163
|
0 |
15 |
unless (defined $context->{$key})
|
|
164
|
0 |
0 |
$self->_required ? :
|
|
169
|
29 |
56 |
unless (defined $context->{$key})
|
|
170
|
2 |
27 |
$self->_required ? :
|
|
185
|
20 |
78 |
if (ref $rule or !1) { }
|
|
189
|
20 |
10 |
if (exists $value->{$pointer}) { }
|
|
192
|
0 |
10 |
$self->_required ? :
|
|
196
|
0 |
10 |
unless (ref $value || '') eq "ARRAY"
|
|
199
|
0 |
10 |
if $found_array_depth > $self->max_array_depth
|
|
209
|
14 |
11 |
unless @$cloned_rules
|
|
212
|
1 |
24 |
if (ref $value || '') eq "HASH" and not %$value
|
|
217
|
11 |
67 |
if ((ref $rules->[0] || '') eq 'ARRAY') { }
|
|
219
|
5 |
6 |
unless %$value
|
|
222
|
14 |
53 |
if ($rule eq '') { }
|
|
225
|
0 |
0 |
if ((ref $value || '') eq 'HASH' and exists $value->{$pointer}) { }
|
|
228
|
0 |
0 |
$self->_required ? :
|
|
235
|
74 |
17 |
if ((ref $value || '') eq 'HASH' and exists $value->{$pointer}) { }
|
|
238
|
0 |
17 |
$self->_required ? :
|