| line |
true |
false |
branch |
|
23
|
3 |
21 |
if (ref $$args[0] eq 'HASH') |
|
30
|
0 |
24 |
if ($$opt{'on_deny'} and ref $$opt{'on_deny'} ne 'CODE') |
|
34
|
22 |
2 |
unless defined $$opt{'cache'} |
|
35
|
24 |
0 |
$$opt{'cache'} ? : |
|
43
|
21 |
3 |
if (defined $result and $result) |
|
46
|
3 |
18 |
if (not $allow and $$opt{'on_deny'}) |
|
66
|
0 |
11 |
unless $allowing =~ /^(allow|deny)$/ |
|
69
|
4 |
7 |
$allowing eq 'allow' ? : |
|
72
|
3 |
8 |
if ($rule =~ /^ALL$/i) { } |
|
|
2 |
6 |
elsif ($rule =~ /[A-Z]$/i) { } |
|
|
5 |
1 |
elsif (ref $rule ne 'CODE') { } |
|
78
|
0 |
6 |
unless defined $host |
|
88
|
12 |
0 |
if (defined $addr) |
|
89
|
12 |
0 |
$cidr->find($addr) ? : |