| line | % | coverage | condition |
|---|
| 372 | 100 | | $params //= {} |
| 499 | 100 | | $ref and $ref ne "HASH" |
| 517 | 100 | | $self->{'allowed_ips'} //= {} |
| 524 | 75 | | defined $base and $base =~ /\A$CGI::ACL::RE{'net'}{'IPv4'}\z/ou || $base =~ /\A$CGI::ACL::RE{'net'}{'IPv6'}\z/ou |
| 629 | 75 | | $ref and $ref ne "HASH" and $ref ne "ARRAY" |
| 642 | 100 | | ref $c eq "ARRAY" and not @{$c;} |
| 645 | 100 | | $self->{'deny_countries'} //= {} |
| 731 | 75 | | $ref and $ref ne "HASH" and $ref ne "ARRAY" |
| 744 | 100 | | ref $c eq "ARRAY" and not @{$c;} |
| 747 | 100 | | $self->{'allow_countries'} //= {} |
| 896 | 100 | | $self->{'deny_countries'} //= {} |
| 1076 | 100 | | defined $self->{'allowed_ips'} or defined $self->{'deny_countries'} or $self->{'deny_cloud'} |
| 1086 | 67 | | $ENV{'REMOTE_ADDR'} // $DEFAULT_ADDR |
| 1091 | 100 | | $raw =~ /\A$CGI::ACL::RE{'net'}{'IPv4'}\z/ou or $raw =~ /\A$CGI::ACL::RE{'net'}{'IPv6'}\z/ou |
| 1104 | 100 | | $self->{'_cloud_cache'} && $self->{'_cloud_cache'}{$addr} |
| 1106 | 100 | | $cached and $cached->{'expires'} > time |
| 1123 | 100 | | not $dns_error and $is_cloud |
| 1134 | 100 | | $self->{'allowed_ips'} or $self->{'deny_countries'} |
| 1193 | 100 | | $self->{'allow_countries'} && $self->{'allow_countries'}{$country} |
| 1322 | 0 | | alarm $DNS_TIMEOUT // 0 |
| 1336 | 0 | | $@ or not $hostname |