Branch Coverage

blib/lib/Tree/Binary.pm
Criterion Covered Total %
branch 72 74 97.3


line true false branch
34 2 7161 unless defined $node
52 1 5 unless defined $node_value
58 1 1 unless $uid
64 4 3549 unless &blessed($tree) and $tree->isa('Tree::Binary')
68 1526 2023 if ($tree->isLeaf) { }
79 1 37 unless $self->hasLeft
82 29 8 if ($left->isLeaf) { }
94 4 3485 unless &blessed($tree) and $tree->isa('Tree::Binary')
98 1542 1943 if ($tree->isLeaf) { }
109 1 20 unless $self->hasRight
112 9 11 if ($right->isLeaf) { }
206 27 31580 if ($tree->isRoot) { }
218 1 35626 unless defined $func
219 1 35625 unless ref $func eq 'CODE'
221 15939 19686 if defined $self->{'_left'}
222 15611 20014 if defined $self->{'_right'}
232 2929 3095 if $self->hasLeft
233 2973 3051 if $self->hasRight
240 2004 2077 if $self->hasLeft
241 1985 2096 if $self->hasRight
248 508 519 if $self->hasLeft
249 497 530 if $self->hasRight
250 312 715 $left_height > $right_height ? :
256 4 211 unless &blessed($visitor) and $visitor->isa('Tree::Binary::Visitor') || $visitor->can('visit')
287 4 8 if $self->hasLeft
288 5 7 if $self->hasRight
302 0 2 unless defined $cloned_node
314 6021 9 unless defined $seen
318 6020 10 unless ref $node
320 0 10 if exists do { $seen }->{$node}
322 4 6 if (&blessed($node)) { }
324 2 2 if ($node->can('clone')) { }
336 3 3 if (ref $node eq 'SCALAR' or ref $node eq 'REF') { }
1 2 elsif (ref $node eq 'ARRAY') { }
1 1 elsif (ref $node eq 'HASH') { }
375 3387 4443 if defined $self->{'_left'}
376 3310 4520 if defined $self->{'_right'}