| line |
true |
false |
branch |
|
17
|
8 |
1 |
if (not ref $self->deny_page) { } |
|
|
0 |
1 |
elsif (ref $self->deny_page ne 'CODE') { } |
|
18
|
1 |
7 |
defined $self->deny_page ? : |
|
28
|
1 |
8 |
if (not defined $self->rules) { } |
|
|
0 |
8 |
elsif (ref $self->rules ne 'ARRAY') { } |
|
|
0 |
8 |
elsif (@{$self->rules;} % 2 != 0) { } |
|
42
|
0 |
12 |
unless ($allowing =~ /^(allow|deny)$/) |
|
46
|
0 |
12 |
unless (defined $rule) |
|
50
|
4 |
8 |
$allowing eq 'allow' ? : |
|
53
|
3 |
9 |
if ($rule eq 'all') { } |
|
|
2 |
7 |
elsif ($rule =~ /[A-Z]$/i) { } |
|
|
5 |
2 |
elsif (ref $rule ne 'CODE') { } |
|
58
|
0 |
2 |
unless defined $host |
|
62
|
0 |
5 |
unless my $netip = 'Net::IP'->new($rule) |
|
67
|
4 |
0 |
if (defined $addr and $ip = 'Net::IP'->new($addr)) { } |
|
88
|
8 |
1 |
if (defined $result and $result) |
|
99
|
3 |
6 |
$self->allow($env) ? : |