| line |
true |
false |
branch |
|
15
|
9 |
120 |
unless defined $value |
|
16
|
9 |
111 |
if $value eq '' |
|
18
|
6 |
105 |
unless $options |
|
20
|
0 |
105 |
unless $$options{'x-policy'} |
|
21
|
0 |
105 |
unless %policy |
|
25
|
84 |
21 |
if ($policy{'length'} and $policy{'length'} =~ /,/) { } |
|
|
21 |
0 |
elsif ($policy{'length'}) { } |
|
29
|
24 |
60 |
if (defined $min and length $value < $min) |
|
33
|
12 |
72 |
if (defined $max and length $value > $max) |
|
43
|
48 |
57 |
unless $return |
|
45
|
6 |
51 |
if (defined $policy{'chars'} and not ref $policy{'chars'}) |
|
50
|
36 |
21 |
unless $policy{'chars'} |
|
52
|
24 |
5 |
$value =~ /$re/ ? : |
|
55
|
5 |
24 |
unless $return |
|
58
|
5 |
52 |
unless $return |
|
60
|
9 |
43 |
if (defined $policy{'chars_blacklist'} and not ref $policy{'chars_blacklist'}) |
|
65
|
34 |
18 |
unless $policy{'chars_blacklist'} |
|
67
|
6 |
12 |
$value =~ /$re/ ? : |
|
70
|
6 |
12 |
unless $return |
|
73
|
6 |
46 |
unless $return |