| line | % | coverage | branch |
|---|
| 154 | 100 | T | F | if (not defined $class) { } |
| 100 | T | F | elsif (&blessed($class)) { } |
| 163 | 100 | T | F | if ref $copy{$key} eq "HASH" |
| 257 | 100 | T | F | if (ref $_[0] and ref $_[0] ne "HASH") |
| 264 | 100 | T | F | if (ref $_[0] eq 'HASH') { } |
| 100 | T | F | elsif (@_ % 2 == 0) { } |
| 273 | 100 | T | F | if (defined(my $ip = $params{'ip'})) { } |
| 367 | 100 | T | F | if (ref $_[0] and ref $_[0] ne "HASH" and ref $_[0] ne "ARRAY") |
| 374 | 100 | T | F | if (ref $_[0] eq 'HASH') { } |
| 100 | T | F | elsif (@_ % 2 == 0) { } |
| 384 | 100 | T | F | if (defined(my $c = $params{'country'})) { } |
| 385 | 100 | T | F | if ref $c eq "ARRAY" and not @{$c;} |
| 474 | 100 | T | F | if (ref $_[0] and ref $_[0] ne "HASH" and ref $_[0] ne "ARRAY") |
| 481 | 100 | T | F | if (ref $_[0] eq 'HASH') { } |
| 100 | T | F | elsif (@_ % 2 == 0) { } |
| 491 | 100 | T | F | if (defined(my $c = $params{'country'})) { } |
| 492 | 100 | T | F | if ref $c eq "ARRAY" and not @{$c;} |
| 698 | 100 | T | F | unless (defined $self->{'allowed_ips'} or defined $self->{'deny_countries'} or $self->{'deny_cloud'} or defined $self->{'allow_countries'}) |
| 712 | 100 | T | F | unless $addr =~ /^$CGI::ACL::RE{'net'}{'IPv4'}$/o or $addr =~ /^$CGI::ACL::RE{'net'}{'IPv6'}$/o |
| 716 | 100 | T | F | if ($self->{'deny_cloud'}) |
| 721 | 50 | T | F | if ($@ =~ /^DNS timeout: /) |
| 724 | 100 | T | F | if not $error and $is_cloud |
| 729 | 100 | T | F | unless $self->{'allowed_ips'} or $self->{'deny_countries'} or $self->{'allow_countries'} |
| 733 | 100 | T | F | if ($self->{'allowed_ips'}) |
| 735 | 100 | T | F | if $self->{'allowed_ips'}{$addr} |
| 739 | 100 | T | F | unless ($self->{'_cidrlist'}) |
| 750 | 100 | T | F | if $in_cidr |
| 754 | 100 | T | F | if ($self->{'deny_countries'} or $self->{'allow_countries'}) |
| 757 | 100 | T | F | if (ref $_[0] eq 'HASH') { } |
| 100 | T | F | elsif (@_ % 2 == 0) { } |
| 765 | 100 | T | F | if (my $lingua = $params{'lingua'}) { } |
| 767 | 100 | T | F | unless (&blessed($lingua)) |
| 774 | 100 | T | F | if $@ |
| 775 | 100 | T | F | if (my $country = $country_val) |
| 779 | 100 | T | F | if ($self->{'deny_countries'} and $self->{'deny_countries'}{$WILDCARD}) |
| 780 | 100 | T | F | $self->{'allow_countries'} && $self->{'allow_countries'}{$country} ? : |
| 786 | 100 | T | F | $self->{'deny_countries'} && $self->{'deny_countries'}{$country} ? : |
| 821 | 100 | T | F | if (ref $value eq 'ARRAY') { } |
| 849 | 100 | T | F | unless my $hostname = _verified_rdns($ip) |
| 853 | 100 | T | F | if $hostname =~ /$pattern/ |
| 885 | 100 | T | F | if ($ip =~ /:/o) { } |
| 888 | 100 | T | F | unless $packed = Socket::inet_pton(10, $ip) |
| 892 | 100 | T | F | unless $packed = inet_aton($ip) |
| 897 | 100 | T | F | $family == 2 ? : |
| 903 | 50 | T | F | if ($^O ne 'MSWin32') { } |
| 910 | 100 | T | F | if ($hostname) |
| 919 | 100 | T | F | if $@ or not $hostname |
| 922 | 0 | T | F | unless $hostname = gethostbyaddr($packed, $family) |
| 929 | 100 | T | F | grep({$_ eq $canonical;} @forward_ips) ? : |
| 951 | 100 | T | F | if ($family == 2) |
| 963 | 100 | T | F | if $err |
| 971 | 100 | T | F | unless $e |