| line |
true |
false |
branch |
|
45
|
0 |
0 |
unless (defined $_[0] and $_[0] =~ /^[\w:]+$/) |
|
52
|
0 |
0 |
unless (defined $db_file) |
|
73
|
0 |
0 |
if -e $file |
|
81
|
0 |
0 |
if (-d $db_file) |
|
83
|
0 |
0 |
unless (-s $db_file) |
|
88
|
0 |
0 |
unless open my $handler, '<', $db_file |
|
93
|
0 |
0 |
if $this->{'pos'} |
|
96
|
0 |
0 |
if ($buffer =~ /##headers##(\d+)##$/s) { } |
|
|
0 |
0 |
elsif ($buffer =~ /##start##$/s) { } |
|
116
|
0 |
0 |
if ($#_ == 0) { } |
|
117
|
0 |
0 |
unless ($THIS) |
|
128
|
0 |
0 |
unless ($ip =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) |
|
132
|
0 |
0 |
unless length $ip |
|
138
|
0 |
0 |
if ($this->{'cache'} and $this->{'CACHE'}{$ip_class}) |
|
147
|
0 |
0 |
if ($ipnb <= $Key) |
|
153
|
0 |
0 |
if ($this->{'FASTER'}) { } |
|
159
|
0 |
0 |
if $ipnb >= $iprange |
|
164
|
0 |
0 |
if $] < 5.006001 |
|
170
|
0 |
0 |
if $ipnb >= $iprange |
|
174
|
0 |
0 |
if ($this->{'cache'}) |
|
175
|
0 |
0 |
if ($this->{'CACHE_COUNT'} > $cache_expire) { } |
|
218
|
0 |
0 |
unless @ip or $last_lookup |
|
238
|
0 |
1 |
if $input > 0 |
|
254
|
1 |
85 |
if $dec > 0 |