| line |
true |
false |
branch |
|
8
|
1 |
0 |
if ($] >= 5.008) { } |
|
17
|
0 |
0 |
$c >= 192 ? : |
|
71
|
0 |
1 |
eval 'require Sys::Mmap' ? : |
|
212
|
0 |
0 |
if $type >= 106 |
|
215
|
0 |
0 |
unless $name |
|
222
|
0 |
0 |
defined $Geo::IP::PurePerl::OPEN_TYPE_PATH ? : |
|
225
|
0 |
0 |
$^O eq 'NetWare' ? : |
|
226
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
238
|
0 |
0 |
unless @_ > 1 and $_[1] |
|
243
|
0 |
0 |
unless CORE::open $fh, $db_file |
|
245
|
0 |
0 |
if ($flags and $flags & 9) { } |
|
248
|
0 |
0 |
if ($flags & 8) { } |
|
249
|
0 |
0 |
unless defined $Sys::Mmap::VERSION |
|
251
|
0 |
0 |
unless mmap($self{'buf'} = undef, 0, PROT_READ(), MAP_PRIVATE(), $fh) |
|
274
|
0 |
0 |
if ($^O eq 'NetWare') { } |
|
|
0 |
0 |
elsif ($^O eq 'MSWin32') { } |
|
279
|
0 |
0 |
if (not defined $db_file) { } |
|
|
0 |
0 |
elsif ($db_file =~ /^\d+$/) { } |
|
310
|
0 |
0 |
if ($delim eq "\377\377\377") { } |
|
317
|
0 |
0 |
if $gi->{'databaseType'} >= 106 |
|
321
|
0 |
0 |
if ($gi->{'databaseType'} == 7) { } |
|
|
0 |
0 |
elsif ($gi->{'databaseType'} == 3) { } |
|
|
0 |
0 |
elsif ($gi->{'databaseType'} == 6 or $gi->{'databaseType'} == 2 or $gi->{'databaseType'} == 5 or $gi->{'databaseType'} == 9 or $gi->{'databaseType'} == 11 or $gi->{'databaseType'} == 4) { } |
|
345
|
0 |
0 |
if ($gi->{'databaseType'} == 5 or $gi->{'databaseType'} == 4 or $gi->{'databaseType'} == 11) |
|
357
|
0 |
0 |
if ($gi->{'databaseType'} == 1 or $gi->{'databaseType'} == 10) |
|
376
|
0 |
0 |
if (not exists $gi->{'buf'}) { } |
|
389
|
0 |
0 |
if ($ipnum & 1 << $depth) { } |
|
390
|
0 |
0 |
if ($x1 >= $gi->{'databaseSegments'}) |
|
396
|
0 |
0 |
if ($x0 >= $gi->{'databaseSegments'}) |
|
421
|
0 |
0 |
unless $ip_address =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/ |
|
428
|
0 |
0 |
unless $ip_address =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/ |
|
435
|
0 |
0 |
unless $ip_address =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/ |
|
441
|
0 |
0 |
unless $ip_address =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/ |
|
469
|
0 |
0 |
if ($host =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) { } |
|
474
|
0 |
0 |
unless $ip_address |
|
482
|
0 |
0 |
unless $ip_address |
|
503
|
0 |
0 |
if ($seek_country == $gi->{'databaseSegments'}) |
|
509
|
0 |
0 |
if (not exists $gi->{'buf'}) { } |
|
532
|
0 |
0 |
if ($str_length > 0) |
|
544
|
0 |
0 |
if ($str_length > 0) |
|
556
|
0 |
0 |
if ($str_length > 0) |
|
579
|
0 |
0 |
if (2 == $gi->{'databaseType'}) |
|
581
|
0 |
0 |
if ($record_country_code eq 'US') |
|
595
|
0 |
0 |
if $gi->charset == 1 |
|
624
|
0 |
0 |
if ($seek_org == $gi->{'databaseSegments'}) |
|
630
|
0 |
0 |
if (not exists $gi->{'buf'}) { } |
|
658
|
0 |
0 |
unless $ip_address |
|
659
|
0 |
0 |
if ($gi->{'databaseType'} == 7) { } |
|
|
0 |
0 |
elsif ($gi->{'databaseType'} == 3) { } |
|
661
|
0 |
0 |
if ($seek_region >= 1000) { } |
|
668
|
0 |
0 |
if ($seek_region < 1) { } |
|
|
0 |
0 |
elsif ($seek_region < 677) { } |
|
|
0 |
0 |
elsif ($seek_region < 1353) { } |
|
690
|
0 |
0 |
if ($host =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) { } |
|
712
|
0 |
0 |
if ($buf eq "\377\377\377") |
|
718
|
0 |
0 |
if ($hasStructureInfo == 1) { } |
|
726
|
0 |
0 |
if ($buf eq "\000\000\000") |
|
767
|
0 |
0 |
if (exists $gi->{'buf'} and $gi->{'flags'} and $gi->{'flags'} & 8) |
|
768
|
0 |
0 |
unless munmap($gi->{'buf'}) |