Branch Coverage

blib/lib/Code/Includable/Tree/NodeMethods.pm
Criterion Covered Total %
branch 55 80 68.7


line true false branch
24 320 0 if ($IGNORE_NO_CHILDREN_METHOD) { }
28 0 320 if $@
33 245 75 if (@children == 1)
34 36 209 unless defined $children[0]
35 201 8 if ref $children[0] eq 'ARRAY'
97 4 16 if &$code($_)
105 4 8 unless $parent
107 8 0 if @siblings
113 4 8 unless $parent
115 8 0 if @siblings
121 4 8 unless $parent
129 0 12 unless $parent
131 12 0 if @siblings >= $n
137 0 12 unless $parent
139 12 0 if @siblings >= $n
145 0 20 unless $parent
148 20 0 if @siblings
154 0 40 unless $parent
157 40 0 if @siblings
163 0 8 unless $parent
172 0 16 unless $parent
175 16 0 if @siblings >= $n
181 0 16 unless $parent
184 16 0 if @children >= $n
189 0 12 unless my $parent = $self->$GET_PARENT_METHOD
193 8 32 if (&Scalar::Util::refaddr($siblings[$i]) == $refaddr)
202 0 8 unless my $parent = $self->$GET_PARENT_METHOD
206 4 20 if (&Scalar::Util::refaddr($siblings[$i]) == $refaddr)
215 0 12 unless my $parent = $self->$GET_PARENT_METHOD
219 8 24 if (&Scalar::Util::refaddr($siblings[$i]) == $refaddr)
228 0 8 unless my $parent = $self->$GET_PARENT_METHOD
232 4 24 if (&Scalar::Util::refaddr($siblings[$i]) == $refaddr)
242 2 2 $parent ? :
260 0 0 if @children >= $m
266 0 4 unless my $parent = $self->$GET_PARENT_METHOD
270 4 8 if (&Scalar::Util::refaddr($sibling) == $refaddr)
284 4 6 if ($opts->{'check_root'})
286 2 2 if defined $parent
294 4 8 unless (defined $childs_parent and &Scalar::Util::refaddr($childs_parent) == $refaddr)
301 0 8 if $opts->{'recurse'}