Branch Coverage

blib/lib/Code/Includable/Tree/NodeMethods.pm
Criterion Covered Total %
branch 53 76 69.7


line true false branch
24 320 0 if ($IGNORE_NO_CHILDREN_METHOD) { }
28 0 320 if $@
33 250 70 if (@children == 1)
34 36 214 unless defined $children[0]
35 207 7 if ref $children[0] eq 'ARRAY'
92 4 16 if &$code($_)
100 4 8 unless $parent
102 8 0 if @siblings
108 4 8 unless $parent
110 8 0 if @siblings
116 4 8 unless $parent
124 0 12 unless $parent
126 12 0 if @siblings >= $n
132 0 12 unless $parent
134 12 0 if @siblings >= $n
140 0 20 unless $parent
143 20 0 if @siblings
149 0 40 unless $parent
152 40 0 if @siblings
158 0 8 unless $parent
167 0 16 unless $parent
170 16 0 if @siblings >= $n
176 0 16 unless $parent
179 16 0 if @children >= $n
184 0 12 unless my $parent = $self->$GET_PARENT_METHOD
188 8 32 if (&Scalar::Util::refaddr($siblings[$i]) == $refaddr)
197 0 8 unless my $parent = $self->$GET_PARENT_METHOD
201 4 20 if (&Scalar::Util::refaddr($siblings[$i]) == $refaddr)
210 0 12 unless my $parent = $self->$GET_PARENT_METHOD
214 8 24 if (&Scalar::Util::refaddr($siblings[$i]) == $refaddr)
223 0 8 unless my $parent = $self->$GET_PARENT_METHOD
227 4 24 if (&Scalar::Util::refaddr($siblings[$i]) == $refaddr)
237 0 4 unless my $parent = $self->$GET_PARENT_METHOD
241 4 8 if (&Scalar::Util::refaddr($sibling) == $refaddr)
255 4 6 if ($opts->{'check_root'})
257 2 2 if defined $parent
265 4 8 unless (defined $childs_parent and &Scalar::Util::refaddr($childs_parent) == $refaddr)
272 0 8 if $opts->{'recurse'}