Branch Coverage

blib/lib/Geo/SypexGeo.pm
Criterion Covered Total %
branch 55 100 55.0


line true false branch
58 0 1 unless open my $fl, $file
62 0 1 if substr($header, 0, 3) ne 'SxG'
66 0 1 if $info[4] * $info[5] * $info[6] * $info[7] * $info[1] * $info[8] == 0
68 1 0 if ($info[15])
105 0 1 unless $seek
108 0 1 unless $info
111 0 1 if ($lang and $lang eq 'en') { }
117 0 1 unless $city
127 0 1 unless $seek
130 0 1 unless $info
141 0 1 unless $seek
157 0 3 if not $ip1n or $ip1n == 10 or $ip1n == 127 or $ip1n >= $self->{'b_idx_len'}
166 3 0 if ($blocks[1] - $blocks[0] > $self->{'range'}) { }
173 3 0 $part > 0 ? :
174 0 3 $part > $self->{'m_idx_len'} ? :
176 0 3 if $min < $blocks[0]
177 3 0 if $max > $blocks[1]
186 0 3 unless open my $fl, $self->{'db_file'}
205 6 0 if (&encode_utf8($ipn) gt &encode_utf8(substr($self->{'m_idx_str'}, $offset * 4, 4))) { }
226 3 0 if ($max - $min > 1) { }
232 9 9 if (&encode_utf8($ipn) gt &encode_utf8(substr($str, $offset * $self->{'block_len'}, 3))) { }
270 0 3 if ($seek < $self->{'country_size'}) { }
271 0 0 unless open my $fl, $self->{'db_file'}
280 0 3 unless open my $fl, $self->{'db_file'}
289 3 0 if ($info) { }
314 0 21 if ($flag eq 't') { }
3 18 elsif ($flag eq 'T') { }
0 18 elsif ($flag eq 's') { }
0 18 elsif ($flag eq 'n') { }
0 18 elsif ($flag eq 'S') { }
0 18 elsif ($flag eq 'm') { }
6 12 elsif ($flag eq 'M') { }
0 12 elsif ($flag eq 'd') { }
0 12 elsif ($flag eq 'c') { }
6 6 elsif ($flag eq 'b') { }
349 0 21 if ($flag eq 't') { }
3 18 elsif ($flag eq 'T') { }
0 18 elsif ($flag eq 's') { }
0 18 elsif ($flag eq 'S') { }
0 18 elsif ($flag eq 'm') { }
6 12 elsif ($flag eq 'M') { }
0 12 elsif ($flag eq 'i') { }
0 12 elsif ($flag eq 'I') { }
0 12 elsif ($flag eq 'f') { }
0 12 elsif ($flag eq 'd') { }
0 12 elsif ($flag eq 'n') { }
6 6 elsif ($flag eq 'N') { }
0 6 elsif ($flag eq 'c') { }
6 0 elsif ($flag eq 'b') { }
362 0 0 ord(substr $subval, 2, 1) >> 7 ? :