| 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) { } |