Branch Coverage

blib/lib/Tree/Ops.pm
Criterion Covered Total %
branch 140 172 81.4


line true false branch
58 209 1 if $parent->parent
85 77 0 if $c
77 294 if ($l eq '(') { }
77 217 elsif ($l eq ')') { }
86 61 16 if $c
87 59 158 if $c
107 0 152 unless my $parent = $child->parent
109 152 143 if $c->[$_] == $child
115 4 50 unless my $parent = $child->parent
117 1 49 if @$c == 0 or $c->[-1] == $child
123 8 56 unless my $parent = $child->parent
125 1 55 if @$c == 0 or $c->[0] == $child
138 11 9 if @{$child->children}
141 2 7 unless $p = $p->next
149 6 15 unless $p = $p->prev
162 1 3 unless my $q = $p->parent
168 0 2 if $first == $second
178 19 0 defined($q = $p->children->[$_]) ? :
193 8 72 unless my $parent = $child->parent
194 34 38 $parent->children->[0] == $child ? :
199 4 60 unless my $parent = $child->parent
201 30 30 $parent->children->[-1] == $child ? :
206 1 1 $parent->parent ? :
211 1 0 @{$parent->children} == 1 ? :
216 1 1 @{$parent->children} == 0 ? :
235 0 2 unless defined(my $i = &indexOfChildInParent($child))
242 0 2 unless defined(my $i = &indexOfChildInParent($child))
251 0 1 unless my $f = $parent->first
258 0 3 unless my $n = $parent->next
265 0 2 unless my $p = $parent->prev
272 0 1 unless my $l = $parent->last
281 0 10 unless my $parent = $child->parent
312 0 5 unless defined(my $i = &indexOfChildInParent($child))
322 0 5 unless defined(my $i = &indexOfChildInParent($child))
344 2 2 if $c->key ~~ $parent->key
351 0 1 unless my $prev = $child->prev
357 0 1 unless my $next = $child->next
391 2 1 $ref =~ /code/i ? :
2 3 $ref =~ /exp/i ? :
1 5 $ref =~ /hash/i ? :
1 6 $ref =~ /array/i ? :
396 13 48 if &$sel($child->key)
410 11 9 if (my(@c) = @{$child->children}) { }
426 36 37 if (my(@c) = @{$child->children})
427 12 24 if $reverse
428 12 24 if $preorder
430 24 12 unless $preorder
466 0 4 if $first == $second
470 2 2 !@f ? :
475 1 1 &above($second, $first) ? :
483 2 2 unless @f and @s
484 2 0 &indexOfChildInParent($f[-1]) > &indexOfChildInParent($s[-1]) ? :
489 1 1 &after($second, $first) ? :
505 1 8 if $child == $ancestor
509 8 7 if $q == $ancestor
516 0 1 unless my $parent = $child->parent
524 0 1 unless my $parent = $child->parent
532 0 2 unless my $parent = $start->parent
533 1 1 unless $parent == $finish->parent
537 1 0 if @c
546 1 7 if $p == $ancestor
548 1 1 if not @p or $p[-1] == $ancestor
554 9 13 if @{$start->children}
558 11 2 $p->next ? :
565 2 20 unless ($p->parent)
569 9 11 if $p->isLast
570 11 0 if (my $q = $p->next)
579 9 13 if @{$start->children}
583 11 2 $p->prev ? :
590 2 20 unless ($p->parent)
594 9 11 if $p->isFirst
595 11 0 if (my $q = $p->prev)
612 0 355 $print ? :
613 0 14 ref $value ? :
341 14 !defined($value) ? :
614 347 8 if $preorder
615 8 347 if $reverse
617 8 347 unless $preorder
621 0 37 if -e $logFile
656 0 62 $print ? :
658 31 31 unless @$c
668 0 12 $print ? :
670 6 6 unless @$c
5359 0 1 if eval "eof(${p}::DATA)"
5361 0 1 if $@
5363 0 1 if $@