| line | % | coverage | branch |
|---|
| 366 | 100 | T | F | if (not defined $class) { } |
| 100 | T | F | elsif (&blessed($class)) { } |
| 375 | 100 | T | F | if ref $copy{$key} eq "HASH" |
| 499 | 100 | T | F | if ($ref and $ref ne "HASH") |
| 505 | 100 | T | F | @_ ? : |
| 506 | 100 | T | F | unless (defined $ip) |
| 524 | 100 | T | F | unless (defined $base and $base =~ /\A$CGI::ACL::RE{'net'}{'IPv4'}\z/ou || $base =~ /\A$CGI::ACL::RE{'net'}{'IPv6'}\z/ou) |
| 532 | 100 | T | F | length $ip > 60 ? : |
| 629 | 100 | T | F | if ($ref and $ref ne "HASH" and $ref ne "ARRAY") |
| 635 | 100 | T | F | @_ ? : |
| 636 | 100 | T | F | unless (defined $c) |
| 642 | 100 | T | F | if ref $c eq "ARRAY" and not @{$c;} |
| 731 | 100 | T | F | if ($ref and $ref ne "HASH" and $ref ne "ARRAY") |
| 737 | 100 | T | F | @_ ? : |
| 738 | 100 | T | F | unless (defined $c) |
| 744 | 100 | T | F | if ref $c eq "ARRAY" and not @{$c;} |
| 1076 | 100 | T | F | unless (defined $self->{'allowed_ips'} or defined $self->{'deny_countries'} or $self->{'deny_cloud'}) |
| 1091 | 100 | T | F | unless $raw =~ /\A$CGI::ACL::RE{'net'}{'IPv4'}\z/ou or $raw =~ /\A$CGI::ACL::RE{'net'}{'IPv6'}\z/ou |
| 1097 | 50 | T | F | unless defined $addr |
| 1100 | 100 | T | F | if ($self->{'deny_cloud'}) |
| 1106 | 100 | T | F | if ($cached and $cached->{'expires'} > time) { } |
| 1116 | 100 | T | F | unless ($dns_error) |
| 1123 | 100 | T | F | if not $dns_error and $is_cloud |
| 1134 | 100 | T | F | unless $self->{'allowed_ips'} or $self->{'deny_countries'} |
| 1138 | 100 | T | F | if ($self->{'allowed_ips'}) |
| 1140 | 100 | T | F | if $self->{'allowed_ips'}{$addr} |
| 1144 | 100 | T | F | unless ($self->{'_cidrlist'}) |
| 1155 | 100 | T | F | if $in_cidr |
| 1166 | 100 | T | F | if ($self->{'deny_countries'}) |
| 1169 | 100 | T | F | @_ ? : |
| 1171 | 100 | T | F | unless ($lingua) |
| 1178 | 100 | T | F | unless (&blessed($lingua)) |
| 1186 | 100 | T | F | if ($@) |
| 1187 | 100 | T | F | unless my $country = $country_val |
| 1192 | 100 | T | F | if ($self->{'deny_countries'}{$WILDCARD}) |
| 1193 | 100 | T | F | $self->{'allow_countries'} && $self->{'allow_countries'}{$country} ? : |
| 1200 | 100 | T | F | $self->{'deny_countries'}{$country} ? : |
| 1227 | 0 | T | F | if (ref $value eq 'ARRAY') { } |
| 1257 | 0 | T | F | if $ip =~ /$PRIVATE_IP_RE/u |
| 1260 | 0 | T | F | unless my $hostname = _verified_rdns($ip) |
| 1265 | 0 | T | F | if length $hostname > 253 |
| 1269 | 0 | T | F | if $hostname =~ /$pattern/u |
| 1301 | 0 | T | F | if ($ip =~ /:/u) { } |
| 1304 | 0 | T | F | unless $packed = Socket::inet_pton(10, $ip) |
| 1308 | 0 | T | F | unless $packed = inet_aton($ip) |
| 1313 | 0 | T | F | $family == 2 ? : |
| 1319 | 0 | T | F | if ($^O ne 'MSWin32') { } |
| 1326 | 0 | T | F | if ($hostname) |
| 1336 | 0 | T | F | if $@ or not $hostname |
| 1339 | 0 | T | F | unless $hostname = gethostbyaddr($packed, $family) |
| 1346 | 0 | T | F | grep({$_ eq $canonical;} @forward_ips) ? : |
| 1375 | 100 | T | F | if ($family == 2) |
| 1377 | 50 | T | F | if @addrs |
| 1379 | 100 | T | F | $packed ? : |
| 1387 | 100 | T | F | if $err |
| 1395 | 100 | T | F | unless $e |