| line | % | coverage | condition |
|---|
| 177 | 33 | | $$params{"_supported"} ||= $$params{"supported"} |
| 185 | 20 | | A | B | C | D | dec |
|---|
| 0 | X | X | X | 0 | | 1 | 0 | X | X | 0 | | 1 | 1 | 0 | X | 0 | | 1 | 1 | 1 | 0 | 0 | | 1 | 1 | 1 | 1 | 1 |
| &Scalar::Util::blessed($$params{"logger"}) and $$params{"logger"}->can("warn") and $$params{"logger"}->can("info") and $$params{"logger"}->can("error") |
| 194 | 100 | | $$params{"supported"} ||= $$params{"supported_languages"} |
| 205 | 67 | | $cache and $ENV{"REMOTE_ADDR"} |
| 208 | 33 | | $info and $l = $info->lang |
| 231 | 0 | | A | B | C | D | dec |
|---|
| 0 | 0 | X | X | 0 | | 0 | 1 | 0 | X | 0 | | 0 | 1 | 1 | 0 | 0 | | 0 | 1 | 1 | 1 | 1 | | 1 | X | 0 | X | 0 | | 1 | X | 1 | 0 | 0 | | 1 | X | 1 | 1 | 1 |
| $$rc{'_what_language'} || $$rc{'_rlanguage'} and $info and $info->lang |
| 257 | 50 | | $$params{'debug'} || 0 |
| 50 | | $$params{'dont_use_ip'} || 0 |
| 263 | 33 | | defined $^V and $^V ge "v5.14.0" |
| 383 | 100 | | $$self{'_sublanguage'} || 'undef' |
| 489 | 100 | | $l and $http_accept_language =~ /-/ and not $http_accept_language =~ qr/$l/i |
| 626 | 33 | | $variety =~ /[a-z]{2,3}/ and not defined $$self{"_sublanguage"} |
| 664 | 33 | | $@ or not defined $language_name |
| 674 | 100 | | $$self{"_cache"} and not defined $from_cache |
| 692 | 33 | | $$self{"_slanguage"} and $$self{"_slanguage"} ne "Unknown" |
| 708 | 14 | | A | B | C | D | dec |
|---|
| 0 | 0 | X | X | 0 | | 0 | 1 | 0 | 0 | 0 | | 0 | 1 | 0 | 1 | 1 | | 0 | 1 | 1 | X | 1 | | 1 | X | 0 | 0 | 0 | | 1 | X | 0 | 1 | 1 | | 1 | X | 1 | X | 1 |
| !$$self{'_rlanguage'} || $$self{'_rlanguage'} eq 'Unknown' and length $http_accept_language == 2 || $http_accept_language =~ /^..-..$/ |
| 728 | 67 | | not defined $country and my $c = $self->_what_language |
| 764 | 0 | | not defined $$self{"_rlanguage"} or $$self{"_rlanguage"} eq "Unknown" |
| 767 | 0 | | exists $self->{'_slanguage'} and $$self{"_slanguage"} ne "Unknown" |
| 772 | 0 | | $language_name and $language_code2 and not defined $http_accept_language |
| 781 | 0 | | $http_accept_language and $http_accept_language ne $$self{"_rlanguage"} |
| 790 | 0 | | not defined $http_accept_language or $1 ne $$self{"_rlanguage"} |
| 815 | 0 | | not defined $from_cache and $$self{"_cache"} and defined $$self{"_slanguage_code_alpha2"} |
| 926 | 67 | | $ENV{"HTTP_CF_IPCOUNTRY"} and $ENV{"HTTP_CF_IPCOUNTRY"} ne "XX" |
| 1022 | 33 | | $$self{"_country"} and $$self{"_country"} eq "eu" |
| 1025 | 33 | | not $$self{"_country"} and eval {
do {
require LWP::Simple::WithCache;
require JSON::Parse
}
} |
| 1051 | 25 | | $@ or not defined $whois or ref $whois ne "HASH" |
| 1058 | 25 | | $$self{"_country"} eq "US" and defined $$whois{"StateProv"} and $$whois{"StateProv"} eq "PR" |
| 1141 | 33 | | -r "/usr/local/share/GeoIP/GeoIP.dat" or -r "/usr/share/GeoIP/GeoIP.dat" |
| 20 | | A | B | C | dec |
|---|
| 0 | X | 0 | 0 | | 0 | X | 1 | 1 | | 1 | 0 | 0 | 0 | | 1 | 0 | 1 | 1 | | 1 | 1 | X | 1 |
| $^O eq "MSWin32" and -r "c:/GeoIP/GeoIP.dat" or (-r "/usr/local/share/GeoIP/GeoIP.dat" or -r "/usr/share/GeoIP/GeoIP.dat") |
| 1191 | 33 | | defined $agent and $agent =~ /\((.+)\)/ |
| 1211 | 50 | | $browser and $browser->country and my $c = $self->_code2country($browser->country) |
| 1360 | 50 | | $code || 'undef' |