line |
true |
false |
branch |
36
|
7 |
0 |
if $ENV{'PERL_DL_NONLAZY'} |
41
|
7 |
0 |
unless $GEOIP_PP_ONLY or $ENV{'GEOIP_PP_ONLY'} |
86
|
0 |
3 |
defined &Geo::IP::Record::_XScompiled ? : |
90
|
7 |
0 |
if ($pp) { } |
97
|
0 |
7 |
eval 'require Sys::Mmap' ? : |
122
|
0 |
0 |
$c >= 192 ? : |
|
7 |
0 |
if ($] >= 5.008) { } |
|
0 |
0 |
unless munmap($gi->{'buf'}) |
|
0 |
0 |
if (exists $gi->{'buf'} and $gi->{'flags'} and $gi->{'flags'} & 8) |
|
0 |
7 |
if ($seek_org == $gi->{'databaseSegments'}) |
|
0 |
7 |
if (exists $gi->{'buf'}) { } |
|
0 |
7 |
if $gi->charset == 1 |
|
0 |
1 |
if (exists $gi->{'buf'}) { } |
|
1 |
0 |
if ($str_length > 0) |
|
1 |
0 |
if ($str_length > 0) |
|
1 |
0 |
if ($str_length > 0) |
|
1 |
0 |
if ($record_country_code eq 'US') |
|
1 |
0 |
if (2 == $gi->{'databaseType'}) |
|
0 |
1 |
if $gi->charset == 1 |
|
0 |
1 |
unless $region |
|
0 |
1 |
if $region eq '00' |
|
1 |
0 |
if exists $country_region_names{$ccode} |
|
0 |
241 |
if (exists $gi->{'buf'}) { } |
|
8 |
105 |
if ($x1 >= $gi->{'databaseSegments'}) |
|
1 |
127 |
if ($x0 >= $gi->{'databaseSegments'}) |
|
113 |
128 |
if ($ipnum & 1 << $depth) { } |
|
0 |
128 |
if (exists $gi->{'buf'}) { } |
|
0 |
15 |
if ($x1 >= $gi->{'databaseSegments'}) |
|
3 |
110 |
if ($x0 >= $gi->{'databaseSegments'}) |
|
15 |
113 |
if (vec $ipnum, $depth ^ 7, 1) { } |
|
0 |
10 |
if $database_type >= 106 |
|
0 |
4 |
if ($gi->{'databaseType'} == 5 or $gi->{'databaseType'} == 4 or $gi->{'databaseType'} == 11) |
|
0 |
10 |
if ($gi->{'databaseType'} == 7) { } |
|
1 |
9 |
elsif ($gi->{'databaseType'} == 3) { } |
|
8 |
1 |
elsif ($gi->{'databaseType'} == 6 or $gi->{'databaseType'} == 2 or $gi->{'databaseType'} == 31 or $gi->{'databaseType'} == 30 or $gi->{'databaseType'} == 5 or $gi->{'databaseType'} == 11 or $gi->{'databaseType'} == 9 or $gi->{'databaseType'} == 21 or $gi->{'databaseType'} == 32 or $gi->{'databaseType'} == 4) { } |
|
10 |
60 |
if ($delim eq "\377\377\377") { } |
|
1 |
9 |
if ($gi->{'databaseType'} == 1 or $gi->{'databaseType'} == 12 or $gi->{'databaseType'} == 10) |
|
0 |
0 |
unless $ip_address =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/ |
|
0 |
1 |
unless $ip_address =~ /^(?:\d{1,3}\.){3}\d{1,3}$/ |
|
0 |
1 |
unless $ip_address =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/ |
|
0 |
0 |
if ($buf eq "\377\377\377") |
|
0 |
0 |
if ($hasStructureInfo == 1) { } |
|
0 |
0 |
if ($buf eq "\000\000\000") |
|
0 |
1 |
unless $ip_address |
|
0 |
1 |
if $seek == $gi->{'databaseSegments'} |
|
1 |
0 |
defined $gir{'latitude'} ? : |
|
0 |
0 |
defined $gir{'latitude'} ? : |
|
0 |
0 |
unless $ip_address |
|
0 |
0 |
if $seek == $gi->{'databaseSegments'} |
|
2 |
0 |
if ($host =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) { } |
|
3 |
0 |
if $host =~ /:/ |
|
0 |
3 |
$err ? : |
|
0 |
2 |
unless $ip_address =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/ |
|
0 |
1 |
unless $addr |
|
0 |
0 |
if ($host =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) { } |
|
0 |
0 |
unless $ip_address |
|
0 |
0 |
unless $addr |
|
0 |
0 |
if ($^O eq 'NetWare') { } |
|
0 |
0 |
elsif ($^O eq 'MSWin32') { } |
|
0 |
0 |
if (not defined $db_file) { } |
|
0 |
0 |
elsif ($db_file =~ /^\d+$/) { } |
|
0 |
11 |
unless @_ > 1 and $_[1] |
|
0 |
11 |
unless CORE::open $fh, "$db_file" |
|
0 |
0 |
unless defined $Sys::Mmap::VERSION |
|
0 |
0 |
unless mmap($self{'buf'} = undef, 0, PROT_READ(), MAP_PRIVATE(), $fh) |
|
0 |
0 |
if ($flags & 8) { } |
|
0 |
11 |
if ($flags and $flags & 9) { } |
|
0 |
0 |
if $type >= 106 |
|
0 |
0 |
unless $name |
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
0 |
0 |
$^O eq 'NetWare' ? : |
|
0 |
0 |
defined $Geo::IP::PP_OPEN_TYPE_PATH ? : |
|
0 |
2 |
unless $addr |
|
0 |
1 |
unless $ip_address |
|
0 |
0 |
if ($seek_region >= 1000) { } |
|
0 |
0 |
$a2 ? : |
|
0 |
1 |
if ($seek_region < 1) { } |
|
1 |
0 |
elsif ($seek_region < 677) { } |
|
0 |
0 |
elsif ($seek_region < 1353) { } |
|
0 |
1 |
if ($gi->{'databaseType'} == 7) { } |
|
1 |
0 |
elsif ($gi->{'databaseType'} == 3) { } |