Branch Coverage

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


line true false branch
171 2 0 if $$self{'top'}
225 0 12 if (ref $node eq 'Tree::MultiNode::Node') { }
233 0 12 if $Tree::MultiNode::debug
238 10 2 defined $value ? :
275 2 15 if (@_ > 1)
276 0 2 if $Tree::MultiNode::debug
302 1 12 if (defined $value)
303 0 1 if $Tree::MultiNode::debug
532 0 3 if $Tree::MultiNode::debug
534 1 2 if (ref $data eq 'Tree::MultiNode::Handle') { }
538 0 2 unless (ref $data eq 'Tree::MultiNode')
559 0 1 if $Tree::MultiNode::debug
561 0 1 if $Tree::MultiNode::debug
617 0 1 if $Tree::MultiNode::debug
637 0 2 if $Tree::MultiNode::debug
658 0 2 if $Tree::MultiNode::debug
678 0 1 if $Tree::MultiNode::debug
700 0 9 if $Tree::MultiNode::debug
703 0 9 unless (defined $children)
707 0 9 unless (defined $pos and $pos <= $#{$children;})
713 0 9 if $Tree::MultiNode::debug
741 0 10 if $Tree::MultiNode::debug
749 0 10 if $Tree::MultiNode::debug
752 0 10 if (defined $pos) { }
753 0 0 if $Tree::MultiNode::debug
755 0 0 unless ($pos <= $#{$children;})
762 0 10 if $Tree::MultiNode::debug
768 0 10 if $Tree::MultiNode::debug
789 0 0 if $Tree::MultiNode::debug
793 0 0 if (ref $child eq 'Tree::MultiNode')
798 0 0 if ref $child ne 'Tree::MultiNode::Node'
803 0 0 if $Tree::MultiNode::debug
806 0 0 if (defined $pos) { }
807 0 0 if $Tree::MultiNode::debug
809 0 0 unless ($pos <= $#{$children;})
816 0 0 if $Tree::MultiNode::debug
822 0 0 if $Tree::MultiNode::debug
839 0 7 if $Tree::MultiNode::debug
877 1 1 if (&$code($key, $child->key))
903 0 8 if $Tree::MultiNode::debug
906 0 8 unless (defined $pos)
911 0 8 if $Tree::MultiNode::debug
914 0 8 if $Tree::MultiNode::debug
915 0 8 unless ($pos <= $#{$children;})
951 0 0 if $Tree::MultiNode::debug
961 0 0 if $Tree::MultiNode::debug
964 0 0 unless ($pos >= 0 and $pos <= $#{$children;})
978 0 0 if $Tree::MultiNode::debug
981 0 0 unless ($pos >= 0 and $pos <= $#{$children;})
995 0 1 if $Tree::MultiNode::debug
1018 0 10 unless defined $node
1020 0 10 if $Tree::MultiNode::debug
1023 8 2 if (defined $pos)
1024 0 8 unless (defined $self->position($pos))
1033 0 10 if $Tree::MultiNode::debug
1053 0 7 unless defined $node
1056 0 7 unless (defined $parent)
1108 0 14 unless defined $node
1146 0 0 unless defined $pos
1149 0 0 defined $node ? :
1166 0 0 if $Tree::MultiNode::debug
1169 0 0 defined $node ? :
1198 0 1 if $Tree::MultiNode::debug
1203 0 1 unless (defined $children)
1207 0 1 unless (defined $pos and $pos >= 0 and $pos <= $#{$children;})
1228 0 1 unless $node
1255 0 1 unless 'CODE' eq ref $subref
1294 0 0 unless 'CODE' eq ref $subref