| line |
true |
false |
branch |
|
16
|
1 |
1 |
if ($db) |
|
25
|
0 |
1 |
if ($db and -r $db) |
|
26
|
0 |
0 |
unless open $$self{'fh'}, '<', $db |
|
47
|
0 |
0 |
unless ($$self{'fh'}) |
|
54
|
0 |
0 |
if ($ip) |
|
55
|
0 |
0 |
unless $self->cached($ip) |
|
56
|
0 |
0 |
wantarray ? : |
|
62
|
0 |
0 |
if ($input =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/) { } |
|
|
0 |
0 |
elsif ($input =~ /(\d+)/) { } |
|
76
|
0 |
0 |
$cache{$ip} ? : |
|
81
|
0 |
0 |
if ($ip) { } |
|
98
|
0 |
0 |
unless $index |
|
111
|
0 |
0 |
if ($mode == 1) { } |
|
|
0 |
0 |
elsif ($mode == 2) { } |
|
116
|
0 |
0 |
if ($mode == 2) { } |
|
141
|
0 |
0 |
if $base =~ /CZ88\.NET/ |
|
142
|
0 |
0 |
if $ext =~ /CZ88\.NET/ |
|
159
|
0 |
0 |
if ($ip < $ip_start) { } |
|
169
|
0 |
0 |
if ($ip > $ip_end) { } |
|
207
|
0 |
0 |
if ($mode == 1 or $mode == 2) { } |
|
218
|
0 |
2 |
if $$self{'fh'} |