| line |
true |
false |
branch |
|
55
|
0 |
4 |
unless defined $class |
|
57
|
0 |
4 |
ref $_[0] eq 'HASH' ? : |
|
77
|
0 |
3 |
if (ref $_[0] eq 'HASH') { } |
|
|
2 |
1 |
elsif (@_ % 2 == 0) { } |
|
85
|
1 |
2 |
if (not defined $params{'ip'}) { } |
|
108
|
0 |
1 |
if (ref $_[0] eq 'HASH') { } |
|
|
0 |
1 |
elsif (@_ % 2 == 0) { } |
|
116
|
0 |
1 |
if (not defined $params{'country'}) { } |
|
121
|
0 |
1 |
if (ref $c eq 'ARRAY') { } |
|
160
|
1 |
0 |
unless (defined $self->{'_allowed_ips'} or defined $self->{'_deny_countries'}) |
|
164
|
4 |
0 |
$ENV{'REMOTE_ADDR'} ? : |
|
166
|
4 |
0 |
if ($self->{'_allowed_ips'}) |
|
167
|
1 |
3 |
if ($self->{'_allowed_ips'}{$addr}) |
|
175
|
1 |
2 |
if (Net::CIDR::cidrlookup($addr, @cidrlist)) |
|
182
|
1 |
1 |
if (ref $_[0] eq 'HASH') { } |
|
|
0 |
1 |
elsif (@_ % 2 == 0) { } |
|
190
|
0 |
0 |
unless (defined $params{'info'} or defined $params{'lingua'}) |
|
195
|
0 |
2 |
if (my $lingua = $params{'lingua'}) |