Condition Coverage

File:blib/lib/CGI/Lingua.pm
Coverage:69.5%

line%coveragecondition
14333
ABdec
000
011
1X1
$params->{'_supported'} ||= $params->{'supported'}
150100
ABdec
0X0
100
111
defined $params->{'logger'} and &blessed($params->{'logger'})
15175
ABCdec
0XX0
10X0
1100
1111
$params->{'logger'}->can("warn") and $params->{'logger'}->can("info") and $params->{'logger'}->can("error")
163100
ABdec
000
011
1X1
$params->{'supported'} ||= $params->{'supported_languages'}
166100
ABdec
000
011
1X1
length $params->{'supported'} < 2 or length $params->{'supported'} > 5
184100
ABdec
0X0
100
111
$cache and $ENV{'REMOTE_ADDR'}
19943
ABCDdec
00XX0
010X0
01100
01111
1X0X0
1X100
1X111
$rc->{'_what_language'} || $rc->{'_rlanguage'} and $info and $info->lang
21650
Adec
00
11
$params->{'debug'} || 0
100
Adec
00
11
$params->{'dont_use_ip'} || 0
237100
ABdec
0X0
100
111
$info and $l = $info->lang
25933
ABdec
0X0
100
111
defined $^V and $^V ge "v5.14.0"
362100
Adec
00
11
$self->{'_sublanguage'} || 'undef'
46350
Adec
00
11
@{$self->{'_supported'};} // ""
49067
ABdec
0X0
100
111
$self->{'_slanguage'} and $self->{'_slanguage'} ne "Unknown"
50343
ABCDdec
00XX0
01000
01011
011X1
1X000
1X011
1X1X1
!$self->{'_rlanguage'} || $self->{'_rlanguage'} eq 'Unknown' and length $http_accept_language == 2 || $http_accept_language =~ /^..-..$/
507100
Adec
00
11
$self->_code2language($http_accept_language) || 'Unknown'
538100
ABCdec
0XX0
10X0
1100
1111
$l and $http_accept_language =~ /-/ and not $http_accept_language =~ qr/$l/i
67767
ABdec
000
011
1X1
$requested_sublanguage //= $1
77633
ABdec
0X0
100
111
$variety =~ /[a-z]{2,3}/ and not defined $self->{'_sublanguage'}
81067
ABdec
000
011
1X1
$@ or not defined $language_name
818100
ABdec
0X0
100
111
$self->{'_cache'} and not defined $from_cache
855100
ABdec
0X0
100
111
not defined $country and my $c = $self->_what_language
88967
ABdec
000
011
1X1
not defined $self->{'_rlanguage'} or $self->{'_rlanguage'} eq "Unknown"
89333
ABdec
0X0
100
111
exists $self->{'_slanguage'} and $self->{'_slanguage'} ne "Unknown"
89650
ABCdec
0XX0
10X0
1100
1111
$language_name and $language_code2 and not defined $http_accept_language
9050
ABdec
0X0
100
111
$http_accept_language and $http_accept_language ne $self->{'_rlanguage'}
9120
ABdec
000
011
1X1
not defined $http_accept_language or $1 ne $self->{'_rlanguage'}
93875
ABCdec
0XX0
10X0
1100
1111
not defined $from_cache and $self->{'_cache'} and defined $self->{'_slanguage_code_alpha2'}
1075100
ABdec
0X0
100
111
$ENV{'HTTP_CF_IPCOUNTRY'} and $ENV{'HTTP_CF_IPCOUNTRY'} ne "XX"
116867
ABdec
0X0
100
111
not defined $self->{'_country'} and $ip ne $BROKEN_GEOIPFREE
1188100
ABdec
0X0
100
111
$self->{'_country'} and $self->{'_country'} eq "eu"
119367
ABdec
0X0
100
111
not $self->{'_country'} and eval {         do {         require LWP::Simple::WithCache; require JSON::Parse } }
122533
ABdec
0X0
100
111
$self->{'_country'} and $self->{'_cache'}
33
ABdec
0X0
100
111
$self->{'_country'} and not $self->{'_country'} =~ /\D/
126375
ABCdec
0000
0011
01X1
1XX1
$@ or not defined $whois or ref $whois ne "HASH"
127050
ABCdec
0XX0
10X0
1100
1111
$self->{'_country'} eq "US" and defined $whois->{'StateProv'} and $whois->{'StateProv'} eq "PR"
134333
ABdec
000
011
1X1
$^O eq 'MSWin32' && -r 'c:/GeoIP/GeoIP.dat' || -r '/usr/local/share/GeoIP/GeoIP.dat' || -r '/usr/share/GeoIP/GeoIP.dat'
1396100
ABdec
0X0
100
111
defined $agent and $agent =~ /\((.+)\)/
141450
ABCdec
0XX0
10X0
1100
1111
$browser and $browser->country and my $c = $self->_code2country($browser->country)
1561100
Adec
00
11
$self->language_code_alpha2 // ""
1745100
Adec
00
11
$self->language_code_alpha2 // (return "other")
174633
ABdec
000
011
1X1
$PLURAL_RULES{$code} // sub {         int $_[0] == 1 ? "one" : "other"; }
1784100
Adec
00
11
$ext //= "json"
186250
Adec
00
11
$code || 'undef'
1912100
Adec
00
11
ref $self and scalar @messages
194133
ABdec
000
011
1X1
$params->{'warning'} // join("", grep(defined($_), @_))
194433
ABdec
000
011
1X1
$params->{'warning'} // join("", grep(defined($_), @_))