| line |
true |
false |
branch |
|
57
|
0 |
6 |
unless defined $class
|
|
77
|
1 |
4 |
if (ref $_[0] eq 'HASH') { }
|
|
|
1 |
3 |
elsif (ref $_[0]) { }
|
|
|
2 |
1 |
elsif (@_ % 2 == 0) { }
|
|
87
|
3 |
2 |
if (defined $params{'ip'}) { }
|
|
113
|
1 |
4 |
if (ref $_[0] eq 'HASH') { }
|
|
|
1 |
3 |
elsif (ref $_[0]) { }
|
|
|
1 |
2 |
elsif (@_ % 2 == 0) { }
|
|
123
|
3 |
2 |
if (defined(my $c = $params{'country'})) { }
|
|
125
|
1 |
2 |
if (ref $c eq 'ARRAY') { }
|
|
154
|
1 |
2 |
if (ref $_[0] eq 'HASH') { }
|
|
|
1 |
1 |
elsif (ref $_[0]) { }
|
|
|
1 |
0 |
elsif (@_ % 2 == 0) { }
|
|
164
|
1 |
2 |
if (defined(my $c = $params{'country'})) { }
|
|
166
|
1 |
0 |
if (ref $c eq 'ARRAY') { }
|
|
206
|
1 |
6 |
unless (defined $self->{'_allowed_ips'} or defined $self->{'_deny_countries'})
|
|
210
|
13 |
0 |
$ENV{'REMOTE_ADDR'} ? :
|
|
212
|
7 |
6 |
if ($self->{'_allowed_ips'})
|
|
213
|
1 |
6 |
if ($self->{'_allowed_ips'}{$addr})
|
|
221
|
2 |
4 |
if (Net::CIDR::cidrlookup($addr, @cidrlist))
|
|
226
|
8 |
2 |
if ($self->{'_deny_countries'} or $self->{'_allow_countries'})
|
|
229
|
1 |
7 |
if (ref $_[0] eq 'HASH') { }
|
|
|
6 |
1 |
elsif (@_ % 2 == 0) { }
|
|
237
|
1 |
7 |
unless (defined $params{'lingua'})
|
|
242
|
7 |
0 |
if (my $lingua = $params{'lingua'})
|
|
243
|
3 |
4 |
if ($self->{'_deny_countries'}{'*'})
|