| 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 | 100 | | $params->{'supported'} ||= $params->{'supported_languages'} |
| 209 | 67 | | $cache and $ENV{'REMOTE_ADDR'} |
| 212 | 33 | | $info and $l = $info->lang |
| 239 | 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 |
| 265 | 50 | | $params->{'debug'} || 0 |
| 50 | | $params->{'dont_use_ip'} || 0 |
| 271 | 33 | | defined $^V and $^V ge "v5.14.0" |
| 391 | 100 | | $self->{'_sublanguage'} || 'undef' |
| 497 | 100 | | $l and $http_accept_language =~ /-/ and not $http_accept_language =~ qr/$l/i |
| 639 | 33 | | $variety =~ /[a-z]{2,3}/ and not defined $self->{'_sublanguage'} |
| 677 | 33 | | $@ or not defined $language_name |
| 687 | 100 | | $self->{'_cache'} and not defined $from_cache |
| 705 | 33 | | $self->{'_slanguage'} and $self->{'_slanguage'} ne "Unknown" |
| 721 | 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 =~ /^..-..$/ |
| 741 | 67 | | not defined $country and my $c = $self->_what_language |
| 777 | 0 | | not defined $self->{'_rlanguage'} or $self->{'_rlanguage'} eq "Unknown" |
| 780 | 0 | | exists $self->{'_slanguage'} and $self->{'_slanguage'} ne "Unknown" |
| 785 | 0 | | $language_name and $language_code2 and not defined $http_accept_language |
| 794 | 0 | | $http_accept_language and $http_accept_language ne $self->{'_rlanguage'} |
| 803 | 0 | | not defined $http_accept_language or $1 ne $self->{'_rlanguage'} |
| 828 | 0 | | not defined $from_cache and $self->{'_cache'} and defined $self->{'_slanguage_code_alpha2'} |
| 939 | 67 | | $ENV{'HTTP_CF_IPCOUNTRY'} and $ENV{'HTTP_CF_IPCOUNTRY'} ne "XX" |
| 1018 | 33 | | not defined $self->{'_country'} and $ip ne "45.128.139.41" |
| 1038 | 33 | | $self->{'_country'} and $self->{'_country'} eq "eu" |
| 1041 | 33 | | not $self->{'_country'} and eval {
do {
require LWP::Simple::WithCache;
require JSON::Parse
}
} |
| 1067 | 25 | | $@ or not defined $whois or ref $whois ne "HASH" |
| 1074 | 25 | | $self->{'_country'} eq "US" and defined $whois->{'StateProv'} and $whois->{'StateProv'} eq "PR" |
| 1157 | 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") |
| 1207 | 33 | | defined $agent and $agent =~ /\((.+)\)/ |
| 1227 | 25 | | $browser and $browser->country and my $c = $self->_code2country($browser->country) |
| 1376 | 50 | | $code || 'undef' |
| 1411 | 50 | | ref $self and scalar @messages |