| line |
true |
false |
branch |
|
40
|
0 |
192 |
$$opt{'alias'} && $$opt{'alias'}{$meth} ? : |
|
52
|
0 |
123 |
unless $param and $rule |
|
64
|
2 |
306 |
if (ref $param eq 'Hash::MultiValue') |
|
68
|
138 |
170 |
if (ref $param) { } |
|
70
|
2 |
136 |
if (ref $param ne $ref) { } |
|
71
|
1 |
1 |
if ($ref eq 'ARRAY') { } |
|
|
1 |
0 |
elsif ($ref eq 'HASH') { } |
|
79
|
111 |
25 |
if ($ref eq 'HASH') { } |
|
|
25 |
0 |
elsif ($ref eq 'ARRAY') { } |
|
81
|
9 |
133 |
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 |
170 |
if (ref $rule eq 'HASH') { } |
|
|
103 |
67 |
elsif (ref $rule eq 'ARRAY') { } |
|
117
|
4 |
99 |
if ($$rule[0] eq 'CHARTYPE') { } |
|
|
0 |
99 |
elsif ($$rule[0] eq 'ALLOWCHARACTER') { } |
|
123
|
0 |
10 |
unless $code |
|
127
|
0 |
4 |
if ($param =~ /[$range]/) |
|
138
|
50 |
136 |
if (ref $_ eq 'ARRAY') { } |
|
|
1 |
135 |
elsif (ref $_) { } |
|
141
|
34 |
16 |
unless defined $max |
|
143
|
18 |
32 |
if ($type eq 'LENGTH' or $type eq 'BETWEEN') { } |
|
|
3 |
29 |
elsif ($type eq 'DIGIT_LENGTH') { } |
|
|
23 |
6 |
elsif ($type eq 'CHARTYPE') { } |
|
|
6 |
0 |
elsif ($type eq 'ALLOWCHARACTER') { } |
|
144
|
0 |
18 |
if ($max < $min) |
|
150
|
0 |
18 |
unless $code |
|
151
|
9 |
9 |
unless (&$code($param, $min, $max)) |
|
153
|
4 |
5 |
if ($type eq 'LENGTH') { } |
|
164
|
0 |
3 |
unless $code |
|
165
|
2 |
1 |
unless (&$code($param, $min, $max)) |
|
175
|
0 |
25 |
unless $code |
|
179
|
9 |
14 |
if ($param =~ /[$range]/) |
|
198
|
0 |
135 |
unless $code |
|
199
|
15 |
120 |
unless (&$code($param)) |
|
207
|
0 |
67 |
unless $code |
|
208
|
16 |
51 |
unless (&$code($param)) |
|
237
|
6 |
6 |
if ($_ eq $word) |