Branch Coverage

blib/lib/Tree/MultiNode/Handle.pm
Criterion Covered Total %
branch 62 78 79.4


line true false branch
10 1529 0 unless $Tree::MultiNode::debug
62 10 91 if (ref $data eq 'Tree::MultiNode::Handle') { }
66 1 90 unless (ref $data eq "Tree::MultiNode")
213 118 0 defined $pos ? :
217 0 118 unless (defined $children)
221 0 118 unless (defined $pos and $pos <= $#{$children;})
262 2 174 if (defined $pos) { }
264 1 1 unless ($pos >= 0 and $pos <= $#{$children;})
313 2 7 if (ref $child eq "Tree::MultiNode")
316 3 6 if ref $child ne "Tree::MultiNode::Node"
325 2 4 if (defined $pos) { }
327 1 1 unless ($pos >= 0 and $pos <= $#{$children;})
390 5 9 if (&$code($key, $child->key))
417 11 29 unless (defined $pos)
425 1 28 unless ($pos >= 0 and $pos <= $#{$children;})
459 1 39 unless (defined $children and @{$children;})
476 2 7 unless (defined $self->{'curr_pos'})
481 2 5 unless ($pos >= 0 and $pos <= $#{$children;})
496 2 4 unless (defined $self->{'curr_pos'})
501 1 3 unless ($pos >= 0 and $pos <= $#{$children;})
514 1 7 unless (defined $children and @{$children;})
540 0 58 unless defined $node
544 25 33 if (defined $pos)
545 0 25 unless (defined $self->position($pos))
551 3 55 unless (defined $self->{'curr_child'})
577 0 33 unless defined $node
580 1 32 unless (defined $parent)
630 0 20 unless defined $node
681 25 4 unless defined $pos
684 29 0 defined $node ? :
699 2 4 defined $pos ? :
703 6 0 defined $node ? :
735 8 1 defined $pos ? :
741 0 9 unless (defined $children)
745 1 8 unless (defined $pos and $pos >= 0 and $pos <= $#{$children;})
770 0 5 unless $node
784 0 0 unless $node
810 0 7 unless "CODE" eq ref $subref
853 0 1 unless "CODE" eq ref $method