| line |
true |
false |
branch |
|
42
|
0 |
200 |
$opt->{'alias'} && $opt->{'alias'}{$meth} ? : |
|
52
|
0 |
131 |
unless $param and $rule |
|
64
|
2 |
326 |
if (ref $param eq 'Hash::MultiValue') |
|
68
|
146 |
182 |
if (ref $param) { } |
|
70
|
2 |
144 |
if (ref $param ne $ref) { } |
|
71
|
1 |
1 |
if ($ref eq 'ARRAY') { } |
|
|
1 |
0 |
elsif ($ref eq 'HASH') { } |
|
79
|
119 |
25 |
if ($ref eq 'HASH') { } |
|
|
25 |
0 |
elsif ($ref eq 'ARRAY') { } |
|
81
|
9 |
145 |
if (not exists $param->{$_}) { } |
|
82
|
1 |
8 |
if (ref $rule->{$_} eq 'ARRAY' and ref $rule->{$_}[0] eq 'ARRAY') { } |
|
85
|
6 |
2 |
if (_instr($rule->{$_}, 'NOT_BLANK')) |
|
94
|
2 |
23 |
if (@$rule != 1 and @$rule != @$param) |
|
102
|
30 |
22 |
if (defined $rule->[$_]) { } |
|
113
|
0 |
182 |
if (ref $rule eq 'HASH') { } |
|
|
115 |
67 |
elsif (ref $rule eq 'ARRAY') { } |
|
117
|
4 |
111 |
if ($rule->[0] eq 'CHARTYPE') { } |
|
|
0 |
111 |
elsif ($rule->[0] eq 'ALLOWCHARACTER') { } |
|
123
|
0 |
10 |
unless $code |
|
127
|
0 |
4 |
if ($param =~ /[$range]/) |
|
138
|
62 |
152 |
if (ref $_ eq 'ARRAY') { } |
|
|
1 |
151 |
elsif (ref $_) { } |
|
140
|
33 |
29 |
if ($min and not $min =~ /^\d+\.\d+$|^\d+$/) |
|
143
|
7 |
55 |
if ($max and not $max =~ /^\d+\.\d+$|^\d+$/) |
|
147
|
40 |
22 |
unless defined $max |
|
149
|
26 |
36 |
if ($type eq 'LENGTH' or $type eq 'BETWEEN') { } |
|
|
3 |
33 |
elsif ($type eq 'DIGIT_LENGTH') { } |
|
|
27 |
6 |
elsif ($type eq 'CHARTYPE') { } |
|
|
6 |
0 |
elsif ($type eq 'ALLOWCHARACTER') { } |
|
150
|
0 |
26 |
if ($max < $min) |
|
156
|
0 |
26 |
unless $code |
|
157
|
11 |
15 |
unless (&$code($param, $min, $max)) |
|
159
|
4 |
7 |
if ($type eq 'LENGTH') { } |
|
170
|
0 |
3 |
unless $code |
|
171
|
2 |
1 |
unless (&$code($param, $min, $max)) |
|
181
|
0 |
30 |
unless $code |
|
185
|
10 |
17 |
if ($param =~ /[$range]/) |
|
204
|
0 |
151 |
unless $code |
|
205
|
15 |
136 |
unless (&$code($param)) |
|
213
|
0 |
67 |
unless $code |
|
214
|
16 |
51 |
unless (&$code($param)) |
|
243
|
6 |
6 |
if ($_ eq $word) |