Branch Coverage

blib/lib/Geo/IP.pm
Criterion Covered Total %
branch 62 162 38.2


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) { }