| 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'}) |
| 720 | 100 | T | F | if not $@ and $is_cloud |
| 725 | 100 | T | F | unless $self->{'allowed_ips'} or $self->{'deny_countries'} or $self->{'allow_countries'} |
| 729 | 100 | T | F | if ($self->{'allowed_ips'}) |
| 731 | 100 | T | F | if $self->{'allowed_ips'}{$addr} |
| 735 | 100 | T | F | unless ($self->{'_cidrlist'}) |
| 746 | 100 | T | F | if $in_cidr |
| 750 | 100 | T | F | if ($self->{'deny_countries'} or $self->{'allow_countries'}) |
| 753 | 100 | T | F | if (ref $_[0] eq 'HASH') { } |
| 100 | T | F | elsif (@_ % 2 == 0) { } |
| 761 | 100 | T | F | if (my $lingua = $params{'lingua'}) { } |
| 763 | 100 | T | F | unless (&blessed($lingua)) |
| 770 | 100 | T | F | if $@ |
| 771 | 100 | T | F | if (my $country = $country_val) |
| 775 | 100 | T | F | if ($self->{'deny_countries'} and $self->{'deny_countries'}{$WILDCARD}) |
| 776 | 100 | T | F | $self->{'allow_countries'} && $self->{'allow_countries'}{$country} ? : |
| 782 | 100 | T | F | $self->{'deny_countries'} && $self->{'deny_countries'}{$country} ? : |
| 817 | 100 | T | F | if (ref $value eq 'ARRAY') { } |
| 845 | 100 | T | F | unless my $hostname = _verified_rdns($ip) |
| 849 | 100 | T | F | if $hostname =~ /$pattern/ |
| 881 | 100 | T | F | if ($ip =~ /:/o) { } |
| 884 | 100 | T | F | unless $packed = Socket::inet_pton(10, $ip) |
| 888 | 100 | T | F | unless $packed = inet_aton($ip) |
| 893 | 100 | T | F | $family == 2 ? : |
| 899 | 50 | T | F | if ($^O ne 'MSWin32') { } |
| 906 | 100 | T | F | if ($hostname) |
| 915 | 100 | T | F | if $@ or not $hostname |
| 918 | 0 | T | F | unless $hostname = gethostbyaddr($packed, $family) |
| 925 | 100 | T | F | grep({$_ eq $canonical;} @forward_ips) ? : |
| 947 | 100 | T | F | if ($family == 2) |
| 959 | 100 | T | F | if $err |
| 967 | 100 | T | F | unless $e |