Branch Coverage

blib/lib/Geo/SypexGeo.pm
Criterion Covered Total %
branch 56 102 54.9


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
133 0 1 if ($info->[1] =~ /\D/) { }
148 0 1 unless $seek
164 0 3 if not $ip1n or $ip1n == 10 or $ip1n == 127 or $ip1n >= $self->{'b_idx_len'}
173 3 0 if ($blocks[1] - $blocks[0] > $self->{'range'}) { }
180 3 0 $part > 0 ? :
181 0 3 $part > $self->{'m_idx_len'} ? :
183 0 3 if $min < $blocks[0]
184 3 0 if $max > $blocks[1]
193 0 3 unless open my $fl, $self->{'db_file'}
212 6 0 if (&encode_utf8($ipn) gt &encode_utf8(substr($self->{'m_idx_str'}, $offset * 4, 4))) { }
233 3 0 if ($max - $min > 1) { }
239 9 9 if (&encode_utf8($ipn) gt &encode_utf8(substr($str, $offset * $self->{'block_len'}, 3))) { }
277 0 3 if ($seek < $self->{'country_size'}) { }
278 0 0 unless open my $fl, $self->{'db_file'}
287 0 3 unless open my $fl, $self->{'db_file'}
296 3 0 if ($info) { }
321 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') { }
356 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') { }
369 0 0 ord(substr $subval, 2, 1) >> 7 ? :