| line | % | coverage | branch |
|---|
| 545 | 100 | T | F | if (not defined $class) { } |
| 100 | T | F | elsif (ref $class) { } |
| 546 | 50 | T | F | if ($params) |
| 550 | 50 | T | F | if (&Scalar::Util::blessed($logger) and $logger->can("error")) |
| 558 | 50 | T | F | if defined $params->{'supported'} |
| 565 | 100 | T | F | if (defined $params->{'logger'} and &Scalar::Util::blessed($params->{'logger'})) |
| 566 | 100 | T | F | unless ($params->{'logger'}->can("warn") and $params->{'logger'}->can("info") and $params->{'logger'}->can("error")) |
| 580 | 100 | T | F | if (defined $params->{'supported'}) { } |
| 582 | 100 | T | F | if (ref $params->{'supported'}) { } |
| 100 | T | F | elsif (length $params->{'supported'} < 2 or length $params->{'supported'} > 5) { } |
| 583 | 100 | T | F | if (ref $params->{'supported'} ne "ARRAY") |
| 590 | 50 | T | F | if (my $logger = $params->{'logger'}) |
| 601 | 100 | T | F | if (defined $info and not &Scalar::Util::blessed($info) && ($info->can('lang') || $info->can('AUTOLOAD'))) |
| 610 | 100 | T | F | ref $params->{'supported'} ? : |
| 612 | 100 | T | F | if (defined $entry and not ref $entry and $entry =~ /$SUPPORTED_RE/) |
| 613 | 100 | T | F | if (lc $entry eq $DEPRECATED_EN_UK) |
| 616 | 50 | T | F | if (&Scalar::Util::blessed($params->{'logger'}) and $params->{'logger'}->can('warn')) { } |
| 627 | 50 | T | F | if (&Scalar::Util::blessed($params->{'logger'}) and $params->{'logger'}->can('warn')) { } |
| 652 | 100 | T | F | if ($cache and $ENV{'REMOTE_ADDR'}) |
| 655 | 100 | T | F | if (defined $key and my $frozen = _cache_call($params, $cache, "get", $key)) |
| 660 | 100 | T | F | if (ref $rc eq "HASH") |
| 662 | 100 | T | F | if defined $rc->{$_} |
| 664 | 100 | T | F | if (@bad) { } |
| 666 | 50 | T | F | if (&Scalar::Util::blessed($params->{'logger'}) and $params->{'logger'}->can('warn')) { } |
| 677 | 50 | T | F | if (_info_lang($info)) |
| 705 | 50 | T | F | unless defined $ip |
| 712 | 100 | T | F | if (defined($l = _info_lang($info)) or defined($l = $class->_what_language)) |
| 714 | 50 | T | F | if length $l |
| 720 | 100 | T | F | ref $params->{'supported'} eq 'ARRAY' ? : |
| 721 | 50 | T | F | if defined $_ and not ref $_ |
| 736 | 50 | T | F | unless defined $raw and not ref $raw |
| 737 | 100 | T | F | $raw =~ /$IP_SHAPE_RE/ ? : |
| 757 | 100 | T | F | if eval {
do {
local $SIG{'__DIE__'};
$rc = $cache->$method(@args);
1
}
} |
| 762 | 100 | T | F | if (&Scalar::Util::blessed($self)) { } |
| 50 | T | F | elsif (ref $self eq 'HASH' and &Scalar::Util::blessed($self->{'logger'}) and $self->{'logger'}->can('warn')) { } |
| 783 | 100 | T | F | unless $info |
| 786 | 100 | T | F | unless eval {
do {
local $SIG{'__DIE__'};
$lang = $info->lang;
1
}
} |
| 787 | 100 | T | F | unless defined $lang and length $lang |
| 791 | 100 | T | F | if not ref $lang and $lang =~ /$ACCEPT_LANG_RE/ |
| 792 | 50 | T | F | if ref $self |
| 811 | 100 | T | F | if not defined $value or not ref $value and $value =~ /$re/ |
| 822 | 50 | T | F | if (defined $^V and $^V ge "v5.14.0") |
| 823 | 50 | T | F | if ${^GLOBAL_PHASE} eq "DESTRUCT" |
| 825 | 100 | T | F | unless $ENV{'REMOTE_ADDR'} |
| 828 | 50 | T | F | unless ref $self |
| 831 | 100 | T | F | unless $cache |
| 839 | 50 | T | F | unless defined $key |
| 840 | 100 | T | F | if $self->_cache_call($cache, "get", $key) |
| 911 | 100 | T | F | unless $self->{'_slanguage'} |
| 999 | 100 | T | F | unless $self->{'_slanguage'} |
| 1039 | 100 | T | F | unless $self->{'_slanguage'} |
| 1103 | 100 | T | F | unless $self->{'_slanguage'} |
| 1150 | 100 | T | F | unless $self->{'_rlanguage'} |
| 1182 | 100 | T | F | if (defined $http_accept_language and $http_accept_language =~ /;\s*q\s*=/i) |
| 1185 | 100 | T | F | if ($tag =~ /;\s*q\s*=\s*(\S*?)\s*\z/i) |
| 1187 | 100 | T | F | unless $q =~ /^(?:0(?:\.[0-9]{0,3})?|1(?:\.0{0,3})?)\z/ |
| 1188 | 100 | T | F | if $q == 0 |
| 1192 | 100 | T | F | @acceptable ? : |
| 1196 | 100 | T | F | if (defined $http_accept_language) |
| 1206 | 100 | T | F | if ($http_accept_language =~ s/(?<![A-Za-z0-9-])\Q$DEPRECATED_EN_UK\E(?![A-Za-z0-9-])/$CANONICAL_EN_GB/gi) |
| 1215 | 100 | T | F | if ($l) { } |
| 100 | T | F | elsif ($http_accept_language =~ /;/) { } |
| 1216 | 100 | T | F | if $self->_resolve_match($l, $requested_sublanguage, $http_accept_language) |
| 1228 | 100 | T | F | if (!$self->{'_rlanguage'} || $self->{'_rlanguage'} eq 'Unknown' and length $http_accept_language == 2 || $http_accept_language =~ /^..-..$/) |
| 1237 | 100 | T | F | if $self->{'_dont_use_ip'} |
| 1263 | 100 | T | F | if ($l and $http_accept_language =~ /-/ and not $http_accept_language =~ qr/$l/i) |
| 1269 | 100 | T | F | unless ($l) |
| 1275 | 100 | T | F | unless ($l) |
| 1278 | 100 | T | F | if $l |
| 1297 | 100 | T | F | if ($token =~ s/;\s*q\s*=\s*(\d+(?:\.\d+)?)//) |
| 1301 | 100 | T | F | if length $token |
| 1320 | 100 | T | F | unless $tag =~ /^(..)-(..)$/ |
| 1323 | 100 | T | F | if ($i18n->accepts($base, $self->{'_supported'})) |
| 1345 | 100 | T | F | if $tag =~ /^..-../ |
| 1347 | 100 | T | F | if ($i18n->accepts($tag, $self->{'_supported'})) |
| 1368 | 100 | T | F | if (not $l =~ /^..-../) { } |
| 100 | T | F | elsif ($l =~ /(.+)-(..)$/) { } |
| 1390 | 100 | T | F | unless $self->{'_slanguage'} |
| 1398 | 100 | T | F | if ($header =~ /..-(..)$/) { } |
| 100 | T | F | elsif ($header =~ /..-([a-z]{2,3})$/i) { } |
| 1403 | 50 | T | F | if ($_locale_object_db_ok // 1) |
| 1405 | 50 | T | F | if ($@) { } |
| 1406 | 0 | T | F | if $@ =~ /database was not in/ |
| 1414 | 100 | T | F | if ($sl) { } |
| 100 | T | F | elsif ($requested_sublanguage) { } |
| 1417 | 100 | T | F | if (my $c = $self->_code2countryname($requested_sublanguage)) { } |
| 1445 | 100 | T | F | if $accepts |
| 1452 | 100 | T | F | unless $accepts |
| 1459 | 50 | T | F | if ($variety =~ /[a-z]{2,3}/ and not defined $self->{'_sublanguage'}) |
| 1464 | 100 | T | F | if ($self->{'_cache'}) |
| 1468 | 100 | T | F | if (defined $from_cache) { } |
| 50 | T | F | elsif ($_locale_object_db_ok // 1) { } |
| 1474 | 50 | T | F | unless defined $language_name and length $language_name |
| 1480 | 50 | T | F | unless eval {
do {
my $db = "Locale::Object::DB"->new;
my(@results) = @{$db->lookup("table", "country", "result_column", "name", "search_column", "code_alpha2", "value", $variety);};
$_locale_object_db_ok = 1;
if (defined $results[0]) {
$language_name = $self->_code2countryname($variety);
}
else {
$self->_debug("Can't find the country code for $variety in Locale::Object::DB");
} ;
1
}
} |
| 1489 | 100 | T | F | if (defined $results[0]) { } |
| 1496 | 50 | T | F | if ($db_error) |
| 1497 | 0 | T | F | if $db_error =~ /database was not in/ |
| 1503 | 100 | T | F | if ($db_error or not defined $language_name) |
| 1504 | 50 | T | F | if $db_error |
| 1509 | 100 | T | F | if (not defined $language_name) { } |
| 1516 | 100 | T | F | if ($self->{'_cache'} and not defined $from_cache) |
| 1531 | 50 | T | F | if (defined $self->{'_sublanguage'}) |
| 1553 | 100 | T | F | if (not defined $country and my $c = $self->_what_language) |
| 1554 | 100 | T | F | if ($c =~ /^(..)_(..)/) { } |
| 100 | T | F | elsif ($c =~ /^(..)$/) { } |
| 1560 | 100 | T | F | unless defined $country |
| 1565 | 100 | T | F | if ($self->{'_cache'}) |
| 1569 | 100 | T | F | if ($from_cache) { } |
| 1574 | 100 | T | F | if ($l) |
| 1576 | 100 | T | F | if (defined $l) |
| 1579 | 50 | T | F | if $language_name |
| 1586 | 100 | T | F | unless $language_name |
| 1588 | 100 | T | F | if (not defined $self->{'_rlanguage'} or $self->{'_rlanguage'} eq "Unknown") |
| 1592 | 100 | T | F | unless (exists $self->{'_slanguage'} and $self->{'_slanguage'} ne "Unknown") |
| 1595 | 100 | T | F | if ($language_name and $language_code2 and not defined $http_accept_language) { } |
| 1603 | 100 | T | F | unless ($code) |
| 1604 | 50 | T | F | if ($http_accept_language and $http_accept_language ne $self->{'_rlanguage'}) |
| 1608 | 50 | T | F | unless ($code) |
| 1610 | 50 | T | F | if ($self->{'_rlanguage'} =~ /(.+)\s\(.+/) |
| 1611 | 0 | T | F | if (not defined $http_accept_language or $1 ne $self->{'_rlanguage'}) |
| 1616 | 50 | T | F | unless ($code) |
| 1625 | 100 | T | F | if ($code) |
| 1627 | 100 | T | F | if ($self->{'_slanguage'}) { } |
| 1638 | 100 | T | F | if (not defined $self->{'_slanguage_code_alpha2'}) { } |
| 100 | T | F | elsif (not defined $from_cache and $self->{'_cache'} and defined $self->{'_slanguage_code_alpha2'}) { } |
| 1661 | 100 | T | F | /^(.+)-/ ? : |
| 1663 | 100 | T | F | if (exists $base_languages{$language_string}) |
| 1680 | 100 | T | F | if (ref $self) |
| 1682 | 100 | T | F | if (defined $self->{'_what_language'}) |
| 1686 | 100 | T | F | if (my $info = $self->{'_info'}) |
| 1687 | 100 | T | F | if (my $rc = _info_lang($info, $self)) |
| 1694 | 100 | T | F | if (my $raw_lang = $ENV{'HTTP_ACCEPT_LANGUAGE'}) |
| 1698 | 100 | T | F | if ($raw_lang =~ /$ACCEPT_LANG_RE/) { } |
| 50 | T | F | elsif (ref $self) { } |
| 1700 | 100 | T | F | if (ref $self) |
| 1709 | 100 | T | F | if (defined $ENV{'LANG'}) |
| 1715 | 100 | T | F | if ($ENV{'LANG'} =~ /^([A-Za-z0-9_.\-]{1,$ACCEPT_LANG_MAX})$/a) { } |
| 50 | T | F | elsif (ref $self) { } |
| 1717 | 50 | T | F | if (ref $self) |
| 1840 | 100 | T | F | if ($self->{'_country'}) |
| 1846 | 100 | T | F | if (defined $ENV{'GEOIP_COUNTRY_CODE'}) |
| 1847 | 100 | T | F | if ($ENV{'GEOIP_COUNTRY_CODE'} =~ /^([A-Z]{2})\z/a) { } |
| 1856 | 100 | T | F | if ($ENV{'HTTP_CF_IPCOUNTRY'} and $ENV{'HTTP_CF_IPCOUNTRY'} ne "XX") |
| 1857 | 100 | T | F | if ($ENV{'HTTP_CF_IPCOUNTRY'} =~ /^([A-Z]{2})\z/a) { } |
| 1866 | 100 | T | F | unless defined $raw_ip |
| 1870 | 100 | T | F | unless (defined $ip) |
| 1881 | 100 | T | F | unless (defined $_have_dvip) |
| 1883 | 50 | T | F | if (eval {
do {
require Data::Validate::IP;
'Data::Validate::IP'->import('is_ipv4', 'is_ipv6', 'is_private_ip', 'is_loopback_ip');
1
}
}) { } |
| 1895 | 100 | T | F | unless (is_ipv4($ip)) |
| 1897 | 100 | T | F | if ($ip eq '::1') { } |
| 100 | T | F | elsif ($ip =~ /^::ffff:(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/i) { } |
| 100 | T | F | elsif (not is_ipv6($ip)) { } |
| 1904 | 100 | T | F | unless (is_ipv4($ip)) |
| 1913 | 100 | T | F | if (is_private_ip($ip)) |
| 1917 | 100 | T | F | if (is_loopback_ip($ip)) |
| 1923 | 100 | T | F | if ($self->{'_cache'}) |
| 1925 | 100 | T | F | if (defined $self->{'_country'}) |
| 1926 | 100 | T | F | if (not ref $self->{'_country'} || $self->{'_country'} =~ /\D/) { } |
| 100 | T | F | elsif (ref $self->{'_country'} or not $self->{'_country'} =~ /$COUNTRY_RE/) { } |
| 1945 | 100 | T | F | if ($self->{'_have_ipcountry'} == $GEO_UNKNOWN) |
| 1946 | 50 | T | F | if (eval {
do {
require IP::Country::Fast
}
}) { } |
| 1957 | 100 | T | F | if ($self->{'_have_ipcountry'}) |
| 1959 | 100 | T | F | if ($self->{'_country'}) { } |
| 50 | T | F | elsif (is_ipv4($ip)) { } |
| 1967 | 100 | T | F | unless (defined $self->{'_country'}) |
| 1968 | 100 | T | F | if ($self->{'_have_geoip'} == $GEO_UNKNOWN) |
| 1971 | 100 | T | F | if ($self->{'_have_geoip'} == $GEO_PRESENT) |
| 1976 | 100 | T | F | if (not defined $self->{'_country'} and $ip ne $BROKEN_GEOIPFREE) |
| 1977 | 100 | T | F | if ($self->{'_have_geoipfree'} == $GEO_UNKNOWN) |
| 1979 | 50 | T | F | if ($@) { } |
| 1989 | 100 | T | F | if ($self->{'_have_geoipfree'} == $GEO_PRESENT) |
| 1990 | 50 | T | F | if (my $country = ($self->{'_geoipfree'}->LookUp($ip))[0]) |
| 1998 | 100 | T | F | if ($self->{'_country'} and $self->{'_country'} eq "eu") |
| 2003 | 100 | T | F | if (not $self->{'_country'} and eval {
do {
require LWP::Simple::WithCache;
require JSON::Parse
}
}) |
| 2010 | 100 | T | F | if $@ |
| 2011 | 100 | T | F | if ($data) |
| 2013 | 100 | T | F | if $@ |
| 2020 | 100 | T | F | if (defined $v and ref $v || !($v =~ /^[A-Za-z]{2}\z/)) |
| 2021 | 100 | T | F | if (not ref $v and length $v and not $v =~ /\D/) { } |
| 100 | T | F | elsif (ref $v or length $v) { } |
| 2031 | 100 | T | F | unless ($self->{'_country'}) |
| 2036 | 100 | T | F | if ($self->{'_country'}) |
| 2037 | 100 | T | F | if (not $self->{'_country'} =~ /\D/) { } |
| 2044 | 100 | T | F | if ($self->{'_country'} eq 'hk') { } |
| 100 | T | F | elsif ($self->{'_country'} eq 'eu') { } |
| 2050 | 50 | T | F | if ($self->{'_country'} and not $self->{'_country'} =~ /\D/) { } |
| 100 | T | F | elsif ($self->{'_country'} and $self->{'_country'} ne 'Unknown' and not $self->{'_country'} =~ /^[a-z]{2}$/) { } |
| 100 | T | F | elsif ($self->{'_country'} and $self->{'_cache'}) { } |
| 2099 | 100 | T | F | unless ($@ or not defined $whois or ref $whois ne "HASH") |
| 2100 | 100 | T | F | if (defined $whois->{'Country'}) { } |
| 50 | T | F | elsif (defined $whois->{'country'}) { } |
| 2105 | 50 | T | F | if ($self->{'_country'}) |
| 2106 | 100 | T | F | if ($self->{'_country'} eq 'EU') { } |
| 100 | T | F | elsif ($self->{'_country'} eq 'US' and defined $whois->{'StateProv'} and $whois->{'StateProv'} eq 'PR') { } |
| 2115 | 100 | T | F | if ($self->{'_country'}) |
| 2120 | 100 | T | F | if defined $self->{'_country'} |
| 2133 | 100 | T | F | if (eval {
do {
local $SIG{'__DIE__'};
my $iana = 'Net::Whois::IANA'->new;
$iana->whois_query('-ip', $ip);
$country = $iana->country;
1
}
}) { } |
| 2146 | 100 | T | F | if ($self->{'_country'}) |
| 2148 | 100 | T | F | unless defined $self->{'_country'} |
| 2161 | 100 | T | F | unless defined $raw |
| 2167 | 100 | T | F | if ($raw =~ /^([A-Za-z]{2})\s*(?:#.*)?$/) |
| 2182 | 100 | T | F | unless defined $ip and $ip =~ /^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\z/a |
| 2185 | 100 | T | F | if grep {$_ > 255;} $1, $2, $3, $4 |
| 2206 | 50 | T | F | if (eval {
do {
require Net::Subnet;
'Net::Subnet'->import;
1
}
}) { } |
| 2212 | 100 | T | F | if ($in_baidu) { } |
| 2232 | 100 | T | F | if -f $_ |
| 2233 | 100 | T | F | unless (defined $dat) |
| 2238 | 50 | T | F | unless (eval {
do {
local $SIG{'__DIE__'};
require Geo::IP;
1
}
}) |
| 2248 | 0 | T | F | if (&Scalar::Util::blessed($geoip)) { } |
| 2323 | 100 | T | F | if $self->{'_locale'} |
| 2329 | 100 | T | F | if (defined(my $raw_agent = $ENV{'HTTP_USER_AGENT'})) |
| 2330 | 100 | T | F | if ($raw_agent =~ /^([\x20-\x7e]{1,$UA_MAX})$/a) { } |
| 2338 | 100 | T | F | if (defined $agent and $agent =~ /\((.+)\)/) |
| 2343 | 100 | T | F | if ($candidate =~ /^[a-zA-Z]{2}-([a-zA-Z]{2})$/) |
| 2345 | 50 | T | F | if (my $c = $self->_code2country($1)) |
| 2353 | 100 | T | F | if (eval {
do {
require HTTP::BrowserDetect
}
}) |
| 2358 | 50 | T | F | if ($browser) |
| 2360 | 100 | T | F | if ($bc =~ /^([A-Za-z]{2})$/a) |
| 2361 | 50 | T | F | if (my $c = $self->_code2country($1)) |
| 2372 | 100 | T | F | if ($country) |
| 2379 | 50 | T | F | unless ($@) |
| 2380 | 50 | T | F | if ($c) |
| 2389 | 100 | T | F | if (defined $ENV{'GEOIP_COUNTRY_CODE'}) |
| 2390 | 50 | T | F | if ($ENV{'GEOIP_COUNTRY_CODE'} =~ /^([A-Z]{2})\z/a) |
| 2391 | 0 | T | F | if (my $c = $self->_code2country(lc $1)) |
| 2471 | 100 | T | F | if ($self->{'_timezone'}) |
| 2478 | 100 | T | F | if (defined $raw_ip) { } |
| 2482 | 100 | T | F | unless (defined $ip) |
| 2487 | 100 | T | F | if ($self->{'_have_geoip'} == $GEO_UNKNOWN) |
| 2490 | 100 | T | F | if ($self->{'_have_geoip'} == $GEO_PRESENT) |
| 2494 | 100 | T | F | unless ($self->{'_timezone'}) |
| 2495 | 100 | T | F | if (eval {
do {
require LWP::Simple::WithCache;
require JSON::Parse
}
}) { } |
| 100 | T | F | elsif (eval {
do {
require LWP::Simple;
require JSON::Parse
}
}) { } |
| 2499 | 100 | T | F | if $@ |
| 2500 | 100 | T | F | if ($data) |
| 2502 | 100 | T | F | if $@ |
| 2508 | 50 | T | F | if $@ |
| 2509 | 50 | T | F | if ($data) |
| 2511 | 50 | T | F | if $@ |
| 2517 | 100 | T | F | if (eval {
do {
require LWP::Simple::WithCache;
1
}
} or eval {
do {
require LWP::Simple;
1
}
}) { } |
| 2526 | 100 | T | F | if (defined(my $tz = $self->_read_zone_file)) { } |
| 2537 | 100 | T | F | if $@ |
| 2545 | 100 | T | F | if (defined $self->{'_timezone'} and ref $self->{'_timezone'} || !($self->{'_timezone'} =~ /$ZONE_RE/)) |
| 2551 | 100 | T | F | unless (defined $self->{'_timezone'}) |
| 2571 | 100 | T | F | unless -f $ZONE_FILE and -r _ |
| 2572 | 50 | T | F | unless open my $fin, "<", $ZONE_FILE |
| 2575 | 100 | T | F | unless $got |
| 2579 | 100 | T | F | unless (defined $zone and $zone =~ /$ZONE_RE/) |
| 2621 | 100 | T | F | $RTL_LANGS{$self->language_code_alpha2 // ''} ? : |
| 2655 | 100 | T | F | $self->is_rtl ? : |
| 2854 | 100 | T | F | unless defined $n |
| 2856 | 0 | T | F | int $_[0] == 1 ? : |
| 2930 | 100 | T | F | unless defined $dir |
| 2935 | 100 | T | F | if (ref $dir or not length $dir or $dir =~ /\.\./ or $dir =~ /\x00/) |
| 2945 | 100 | T | F | unless ($ext =~ /^[A-Za-z0-9\-]+\z/) |
| 2953 | 100 | T | F | unless defined $lang and $lang =~ /$LANG_CODE_RE/ |
| 2955 | 100 | T | F | if (defined(my $sub = $self->sublanguage_code_alpha2)) |
| 2956 | 50 | T | F | if $sub =~ /$LANG_CODE_RE/ |
| 2965 | 100 | T | F | if -f $path and -r _ |
| 2979 | 100 | T | F | unless defined $value |
| 2980 | 100 | T | F | if ref $value |
| 2995 | 100 | T | F | unless $code |
| 2996 | 100 | T | F | if (defined $self->{'_country'}) { } |
| 3002 | 100 | T | F | unless ($self->{'_cache'}) |
| 3006 | 100 | T | F | if (my $from_cache = $self->_cache_get_valid($CACHE_NS . "code2language:$code", $NAME_RE)) |
| 3015 | 100 | T | F | if (defined $name) |
| 3031 | 100 | T | F | unless $code |
| 3032 | 100 | T | F | if ($self->{'_country'}) { } |
| 3039 | 50 | T | F | if ($_locale_object_db_ok // 1) |
| 3044 | 50 | T | F | if ($@) { } |
| 3045 | 0 | T | F | if $@ =~ /database was not in/ |
| 3066 | 100 | T | F | unless defined $code |
| 3068 | 100 | T | F | if exists $COUNTRY_SHORT_NAMES{$lc} |
| 3087 | 100 | T | F | unless $code |
| 3090 | 100 | T | F | unless ($self->{'_cache'}) |
| 3092 | 100 | T | F | if defined $country |
| 3096 | 100 | T | F | if (my $from_cache = $self->_cache_get_valid($CACHE_NS . "code2countryname:$code", $NAME_RE)) |
| 3102 | 100 | T | F | if (my $country = $self->_code2country($code)) { } |
| 3110 | 100 | T | F | if (defined $name) |
| 3131 | 100 | T | F | unless ref $self and scalar @messages |
| 3134 | 100 | T | F | unless length $text |
| 3137 | 100 | T | F | if (my $logger = $self->{'logger'}) |
| 3160 | 50 | T | F | ref $params ? : |
| 3162 | 100 | T | F | if (defined $self->{'logger'}) { } |
| 3186 | 100 | T | F | if $_[0] =~ /$skip/ |
| 3187 | 50 | T | F | if (ref $prev eq 'CODE') { } |
| 3203 | 100 | T | F | unless defined $ip and $ip =~ /^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\z/a |
| 3209 | 100 | T | F | unless defined $ip and $ip =~ /:/ |
| 3212 | 100 | T | F | if (defined &Socket::inet_pton) |
| 3224 | 100 | T | F | unless defined $ip |
| 3225 | 100 | T | F | if ($ip =~ /^(\d+)\.(\d+)/) |
| 3227 | 100 | T | F | if $a == 10 |
| 3228 | 100 | T | F | if $a == 172 and $b >= 16 and $b <= 31 |
| 3229 | 100 | T | F | if $a == 192 and $b == 168 |
| 3230 | 100 | T | F | if $a == 169 and $b == 254 |
| 3233 | 100 | T | F | if $ip =~ /^fe[89ab][0-9a-f]:/i |
| 3234 | 100 | T | F | if $ip =~ /^f[cd]/i |
| 3240 | 100 | T | F | unless defined $ip |
| 3241 | 100 | T | F | if $ip eq "::1" |