line |
true |
false |
branch |
96
|
0 |
2 |
if ('MSWin32' eq $^O) { } |
99
|
0 |
0 |
unless 4 == @oct |
102
|
0 |
0 |
unless $_ <= 255 and $_ >= 0 |
138
|
0 |
30 |
unless defined $val |
141
|
0 |
30 |
unless defined $net and defined $bits |
142
|
0 |
30 |
unless my $intnet = _dq2int($net) |
163
|
0 |
4 |
unless defined $val |
166
|
0 |
4 |
if defined $crud or not defined $end |
187
|
0 |
21 |
unless defined $_[3] |
206
|
0 |
4 |
if $start > $end |
261
|
0 |
30 |
if (defined $result{$net}) { } |
351
|
315 |
927 |
$addr & 2147483648 ? : |
354
|
4 |
1238 |
if ('Net::CIDR::Lookup' ne ref $node) |
355
|
3 |
1 |
if $val eq $node |
358
|
47 |
1191 |
unless --$nbits |
359
|
661 |
530 |
if (defined $node->[$bit]) { } |
370
|
2 |
20 |
if $checksub and defined $node->[$bit] and 'Net::CIDR::Lookup' eq ref $node->[$bit] |
378
|
0 |
0 |
if not @node_stack and defined $$node[$bit ^ 1] and $$node[$bit ^ 1] eq $val |
384
|
25 |
4 |
unless defined $node and defined $$node->[0] and defined $$node->[1] and $$node->[0] eq $$node->[1] |
401
|
0 |
2 |
unless $val == $oldval |
405
|
0 |
2 |
unless (eval {
do {
$root->_walk(0, 0, sub {
my $oldval = $_[2];
die $oldval unless $val == $oldval;
}
);
1
}
}) |
406
|
0 |
0 |
if $@ |
417
|
3 |
199 |
unless defined $node->[$bit] |
418
|
8 |
191 |
if 'Net::CIDR::Lookup' ne ref $node->[$bit] |
439
|
328 |
15 |
if ('Net::CIDR::Lookup' eq ref $node) { } |
449
|
236 |
92 |
if ('Net::CIDR::Lookup' eq ref $l) { } |
451
|
19 |
217 |
if defined $r |
458
|
9 |
83 |
if defined $l |
469
|
75 |
32 |
if ('Net::CIDR::Lookup' eq ref $r) { } |
475
|
23 |
9 |
if defined $r |
496
|
17 |
21 |
if ($ix2 <= $ix1) { } |