line |
true |
false |
branch |
67
|
0 |
2 |
unless defined $val |
69
|
0 |
2 |
unless defined $net and defined $bits |
90
|
0 |
6 |
unless defined $val |
92
|
0 |
6 |
if defined $crud or not defined $end |
112
|
0 |
80 |
unless defined $_[3] |
148
|
0 |
6 |
if 1 == $start->Lexicompare($end) |
233
|
0 |
41 |
if (defined $result{$net}) { } |
312
|
0 |
6803 |
if ('Net::CIDR::Lookup::IPv6' ne ref $node) |
313
|
0 |
0 |
if $val eq $node |
316
|
82 |
6721 |
unless --$nbits |
317
|
5884 |
837 |
if (defined $node->[$bit]) { } |
328
|
0 |
30 |
if $checksub and defined $node->[$bit] and 'Net::CIDR::Lookup::IPv6' eq ref $node->[$bit] |
337
|
0 |
0 |
if not @node_stack and defined $$node[$bit ^ 1] and $$node[$bit ^ 1] eq $val |
342
|
76 |
0 |
unless defined $$node->[0] and defined $$node->[1] and $$node->[0] eq $$node->[1] |
355
|
0 |
0 |
unless $val == $oldval |
359
|
0 |
0 |
unless (eval {
do {
$root->_walk('Bit::Vector'->new(128), 0, sub {
my $oldval = $_[2];
die $oldval unless $val == $oldval;
}
);
1
}
}) |
360
|
0 |
0 |
if $@ |
371
|
4 |
488 |
unless defined $node->[$bit] |
372
|
8 |
480 |
if 'Net::CIDR::Lookup::IPv6' ne ref $node->[$bit] |
404
|
74 |
454 |
if $rightflag |
406
|
513 |
15 |
if ('Net::CIDR::Lookup::IPv6' eq ref $node) { } |
416
|
452 |
61 |
if ('Net::CIDR::Lookup::IPv6' eq ref $l) { } |
418
|
19 |
433 |
if defined $r |
425
|
22 |
39 |
if defined $l |
436
|
55 |
21 |
if ('Net::CIDR::Lookup::IPv6' eq ref $r) { } |
442
|
19 |
2 |
if defined $r |
470
|
74 |
80 |
if ($ix2 <= $ix1) { } |