| line | % | coverage | condition |
|---|
| 181 | 0 | | $$params{"_supported"} ||= $$params{"supported"} |
| 189 | 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") |
| 198 | 67 | | $$params{"supported"} ||= $$params{"supported_languages"} |
| 209 | 67 | | $cache and $ENV{"REMOTE_ADDR"} |
| 212 | 33 | | $info and $l = $info->lang |
| 240 | 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 |
| 266 | 50 | | $$params{'debug'} || 0 |
| 50 | | $$params{'dont_use_ip'} || 0 |
| 272 | 33 | | defined $^V and $^V ge "v5.14.0" |
| 392 | 100 | | $$self{'_sublanguage'} || 'undef' |
| 498 | 100 | | $l and $http_accept_language =~ /-/ and not $http_accept_language =~ qr/$l/i |
| 640 | 33 | | $variety =~ /[a-z]{2,3}/ and not defined $$self{"_sublanguage"} |
| 678 | 33 | | $@ or not defined $language_name |
| 688 | 100 | | $$self{"_cache"} and not defined $from_cache |
| 706 | 33 | | $$self{"_slanguage"} and $$self{"_slanguage"} ne "Unknown" |
| 722 | 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 =~ /^..-..$/ |
| 742 | 67 | | not defined $country and my $c = $self->_what_language |
| 778 | 0 | | not defined $$self{"_rlanguage"} or $$self{"_rlanguage"} eq "Unknown" |
| 781 | 0 | | exists $self->{'_slanguage'} and $$self{"_slanguage"} ne "Unknown" |
| 786 | 0 | | $language_name and $language_code2 and not defined $http_accept_language |
| 795 | 0 | | $http_accept_language and $http_accept_language ne $$self{"_rlanguage"} |
| 804 | 0 | | not defined $http_accept_language or $1 ne $$self{"_rlanguage"} |
| 829 | 0 | | not defined $from_cache and $$self{"_cache"} and defined $$self{"_slanguage_code_alpha2"} |
| 940 | 67 | | $ENV{"HTTP_CF_IPCOUNTRY"} and $ENV{"HTTP_CF_IPCOUNTRY"} ne "XX" |
| 1019 | 33 | | not defined $$self{"_country"} and $ip ne "45.128.139.41" |
| 1039 | 33 | | $$self{"_country"} and $$self{"_country"} eq "eu" |
| 1042 | 33 | | not $$self{"_country"} and eval {
do {
require LWP::Simple::WithCache;
require JSON::Parse
}
} |
| 1068 | 25 | | $@ or not defined $whois or ref $whois ne "HASH" |
| 1075 | 25 | | $$self{"_country"} eq "US" and defined $$whois{"StateProv"} and $$whois{"StateProv"} eq "PR" |
| 1158 | 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") |
| 1208 | 33 | | defined $agent and $agent =~ /\((.+)\)/ |
| 1228 | 25 | | $browser and $browser->country and my $c = $self->_code2country($browser->country) |
| 1377 | 50 | | $code || 'undef' |
| 1412 | 50 | | ref $self and scalar @messages |