Condition Coverage

File:blib/lib/CGI/ACL.pm
Coverage:95.5%

line%coveragecondition
160100
Adec
00
11
$params ||= {}
257100
ABdec
0X0
100
111
ref $_[0] and ref $_[0] ne "HASH"
36775
ABCdec
0XX0
10X0
1100
1111
ref $_[0] and ref $_[0] ne "HASH" and ref $_[0] ne "ARRAY"
385100
ABdec
0X0
100
111
ref $c eq "ARRAY" and not @{$c;}
386100
Adec
00
11
$self->{'deny_countries'} ||= {}
47475
ABCdec
0XX0
10X0
1100
1111
ref $_[0] and ref $_[0] ne "HASH" and ref $_[0] ne "ARRAY"
492100
ABdec
0X0
100
111
ref $c eq "ARRAY" and not @{$c;}
493100
Adec
00
11
$self->{'allow_countries'} ||= {}
698100
ABCDdec
00000
00011
001X1
01XX1
1XXX1
defined $self->{'allowed_ips'} or defined $self->{'deny_countries'} or $self->{'deny_cloud'} or defined $self->{'allow_countries'}
70967
ABdec
000
011
1X1
$ENV{'REMOTE_ADDR'} // $DEFAULT_ADDR
712100
ABdec
000
011
1X1
$addr =~ /^$CGI::ACL::RE{'net'}{'IPv4'}$/o or $addr =~ /^$CGI::ACL::RE{'net'}{'IPv6'}$/o
720100
ABdec
0X0
100
111
not $@ and $is_cloud
725100
ABCdec
0000
0011
01X1
1XX1
$self->{'allowed_ips'} or $self->{'deny_countries'} or $self->{'allow_countries'}
750100
ABdec
000
011
1X1
$self->{'deny_countries'} or $self->{'allow_countries'}
775100
ABdec
0X0
100
111
$self->{'deny_countries'} and $self->{'deny_countries'}{$WILDCARD}
776100
ABdec
0X0
100
111
$self->{'allow_countries'} && $self->{'allow_countries'}{$country}
782100
ABdec
0X0
100
111
$self->{'deny_countries'} && $self->{'deny_countries'}{$country}
915100
ABdec
000
011
1X1
$@ or not $hostname