| 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 ? : |
|
63
|
0 |
0 |
if ($input =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/) { } |
|
|
0 |
0 |
elsif ($input =~ /(\d+)/) { } |
|
77
|
0 |
0 |
$cache{$ip} ? : |
|
82
|
0 |
0 |
if ($ip) { } |
|
99
|
0 |
0 |
unless $index |
|
112
|
0 |
0 |
if ($mode == 1) { } |
|
|
0 |
0 |
elsif ($mode == 2) { } |
|
117
|
0 |
0 |
if ($mode == 2) { } |
|
142
|
0 |
0 |
if $base =~ /CZ88\.NET/ |
|
143
|
0 |
0 |
if $ext =~ /CZ88\.NET/ |
|
160
|
0 |
0 |
if ($ip < $ip_start) { } |
|
170
|
0 |
0 |
if ($ip > $ip_end) { } |
|
208
|
0 |
0 |
if ($mode == 1 or $mode == 2) { } |
|
219
|
0 |
2 |
if $$self{'fh'} |