| line |
true |
false |
branch |
|
39
|
1 |
0 |
unless ($$self{'identifier'}) |
|
40
|
1 |
0 |
unless ($identifier) |
|
41
|
1 |
0 |
unless 'Net::IP::Identifier'->require(0.111) |
|
61
|
1 |
1 |
if ($self->identify and $ip =~ m[^\d+\.\d+\.\d+\.\d+(/\d+)?$] || $ip =~ m[^[\d:]+(/\d+)?$]) |
|
65
|
0 |
0 |
if ($id) |
|
66
|
0 |
0 |
if length $id > 8 |
|
82
|
4 |
2 |
if ($ip =~ m[^\d+\.\d+\.\d+\.\d+(/\d+)?$] or $ip =~ m[^[\d:]+(/\d+)?$]) { } |
|
98
|
1 |
0 |
ref $self ? : |
|
101
|
0 |
1 |
$case_sensitive ? : |
|
117
|
0 |
6 |
defined $_->sort_key ? : |
|
123
|
0 |
1 |
wantarray ? : |
|
129
|
0 |
1 |
if ($self->snowshoe) |
|
177
|
0 |
0 |
if ($ip & $mask) == $masked_ip |
|
193
|
0 |
0 |
if $mask_width == 1 |
|
202
|
0 |
0 |
if $ip |
|
203
|
0 |
0 |
if ($masked_ip) |
|
204
|
0 |
0 |
if ($ip and $masked_ip == ($self->ip_to_bin($ip) & $mask)) { } |
|
210
|
0 |
0 |
if (@group < 3) { } |
|
225
|
0 |
0 |
if (@g_children) { } |
|
238
|
0 |
0 |
if ($ip and not $masked_ip) |