Branch Coverage

blib/lib/Tree/MultiNode.pm
Criterion Covered Total %
branch 53 136 38.9


line true false branch
169 2 0 if $self->{'top'}
221 0 12 if (ref $node eq 'Tree::MultiNode::Node') { }
230 0 12 if $Tree::MultiNode::debug
235 10 2 defined $value ? :
270 2 15 if (@_ > 1)
271 0 2 if $Tree::MultiNode::debug
296 1 12 if (defined $value)
297 0 1 if $Tree::MultiNode::debug
514 0 3 if $Tree::MultiNode::debug
516 1 2 if (ref $data eq 'Tree::MultiNode::Handle') { }
520 0 2 unless (ref $data eq 'Tree::MultiNode')
540 0 1 if $Tree::MultiNode::debug
542 0 1 if $Tree::MultiNode::debug
595 0 1 if $Tree::MultiNode::debug
614 0 2 if $Tree::MultiNode::debug
634 0 2 if $Tree::MultiNode::debug
653 0 1 if $Tree::MultiNode::debug
674 0 9 if $Tree::MultiNode::debug
677 0 9 unless (defined $children)
681 0 9 unless (defined $pos and $pos <= $#{$children;})
687 0 9 if $Tree::MultiNode::debug
714 0 10 if $Tree::MultiNode::debug
722 0 10 if $Tree::MultiNode::debug
725 0 10 if (defined $pos) { }
726 0 0 if $Tree::MultiNode::debug
728 0 0 unless ($pos <= $#{$children;})
735 0 10 if $Tree::MultiNode::debug
741 0 10 if $Tree::MultiNode::debug
761 0 0 if $Tree::MultiNode::debug
765 0 0 if (ref $child eq 'Tree::MultiNode')
770 0 0 if ref $child ne 'Tree::MultiNode::Node'
775 0 0 if $Tree::MultiNode::debug
778 0 0 if (defined $pos) { }
779 0 0 if $Tree::MultiNode::debug
781 0 0 unless ($pos <= $#{$children;})
788 0 0 if $Tree::MultiNode::debug
794 0 0 if $Tree::MultiNode::debug
810 0 7 if $Tree::MultiNode::debug
846 1 1 if (&$code($key, $child->key))
871 0 8 if $Tree::MultiNode::debug
874 0 8 unless (defined $pos)
879 0 8 if $Tree::MultiNode::debug
882 0 8 if $Tree::MultiNode::debug
883 0 8 unless ($pos <= $#{$children;})
919 0 0 if $Tree::MultiNode::debug
927 0 0 if $Tree::MultiNode::debug
930 0 0 unless ($pos >= 0 and $pos <= $#{$children;})
943 0 0 if $Tree::MultiNode::debug
946 0 0 unless ($pos >= 0 and $pos <= $#{$children;})
959 0 1 if $Tree::MultiNode::debug
981 0 10 unless defined $node
983 0 10 if $Tree::MultiNode::debug
986 8 2 if (defined $pos)
987 0 8 unless (defined $self->position($pos))
996 0 10 if $Tree::MultiNode::debug
1015 0 7 unless defined $node
1018 0 7 unless (defined $parent)
1068 0 14 unless defined $node
1104 0 0 unless defined $pos
1107 0 0 defined $node ? :
1123 0 0 if $Tree::MultiNode::debug
1126 0 0 defined $node ? :
1153 0 1 if $Tree::MultiNode::debug
1158 0 1 unless (defined $children)
1162 0 1 unless (defined $pos and $pos >= 0 and $pos <= $#{$children;})
1182 0 1 unless $node
1208 0 1 unless 'CODE' eq ref $subref
1245 0 0 unless 'CODE' eq ref $subref