Branch Coverage

blib/lib/Net/CIDR/Lookup.pm
Criterion Covered Total %
branch 43 62 69.3


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