Branch Coverage

blib/lib/Net/CIDR/Lookup/IPv6.pm
Criterion Covered Total %
branch 34 54 62.9


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