Branch Coverage

blib/lib/Piper/Instance.pm
Criterion Covered Total %
branch 76 82 92.6


line true false branch
136 22 13 $self->has_parent ? :
214 208 190 $self->has_children ? :
298 161 31 unless (exists $cache->{$location})
300 159 2 if ($self->has_children or $self->has_parent) { }
301 80 79 $self->has_children ? :
312 1 1 "$self" eq "$location" ? :
314 159 2 if defined $cache->{$location}
317 187 5 if defined $cache->{$location}
344 9 15 $self->prepare ? :
366 0 12 unless $self->has_parent
378 14 732 if ($self->has_children) { }
420 4 1 if ($self->has_parent) { }
452 4 1 if ($self->has_parent) { }
472 2 3 unless defined $segment
488 2 3 unless defined $segment
542 10 0 if ($self->has_parent) { }
562 0 7 unless $self->has_children
583 12 11 if ($self->has_parent) { }
604 0 8 unless $self->has_children
607 4 8 if (defined $self->children->[$index + 1]) { }
632 22 13 if ($self->has_parent) { }
667 8 15 if ($self->has_children) { }
704 0 554 unless $self->has_children
708 206 348 if $referrer
711 174 380 if $path and not ref $path
712 554 0 $path ? :
715 62 669 if (not $descend->has_children) { }
348 321 elsif (exists $descend->directory->{$pieces[0]}) { }
729 358 196 if (not defined $descend and $referrer ne $self)
732 79 491 if ($child eq $referrer)
736 133 358 if ($child->has_children)
738 24 109 if defined $potential
742 24 334 if (@possible)
749 334 220 if (not defined $descend and $referrer ne $self)
751 134 200 if ($path =~ m[^\Q$overlap\E(?:$|/(?.*))])
753 117 17 $path ? :
754 117 17 $path ? :
770 79 453 if ($self->has_children) { }
774 233 220 $self->pending ? :
788 166 117 if ($self->has_children) { }
791 148 18 if ($best = &last_value(sub { $_->pressure >= 100; } , @{$self->children;})) { }