Branch Coverage

blib/lib/PPI/Element.pm
Criterion Covered Total %
branch 62 92 67.3


line true false branch
157 0 6 unless my $parent = shift()
159 3 14 unless $cursor = $PPI::Element::_PARENT{&refaddr($cursor)}
176 0 6 unless my $cursor = shift()
178 3 14 unless $cursor = $PPI::Element::_PARENT{&refaddr($cursor)}
202 0 0 unless $cursor = $PPI::Element::_PARENT{&refaddr($cursor)}
244 181 0 if &_INSTANCE($top, "PPI::Document")
259 5 78 unless my $parent = $PPI::Element::_PARENT{&refaddr($self)}
265 23 55 unless $$elements[$position + 1]
282 7 2216 unless my $parent = $PPI::Element::_PARENT{&refaddr($self)}
289 2191 8 if $it->significant
307 4 72 unless my $parent = $PPI::Element::_PARENT{&refaddr($self)}
313 18 54 unless $position and $$elements[$position - 1]
330 1 1498 unless my $parent = $PPI::Element::_PARENT{&refaddr($self)}
337 1477 14 if $it->significant
363 0 18 unless $cursor = $cursor->first_element
391 0 18 unless $cursor = $cursor->last_element
423 52 22 if ($element)
424 42 10 if $element->isa("PPI::Token")
427 4 18 unless $cursor = $cursor->parent
428 5 13 if ($cursor->isa("PPI::Structure") and $cursor->finish)
459 51 19 if ($element)
460 42 9 if $element->isa("PPI::Token")
463 3 16 unless $cursor = $cursor->parent
464 5 11 if ($cursor->isa("PPI::Structure") and $cursor->start)
557 0 64 unless my $parent = $self->parent
575 0 64 unless $_[0]->remove
595 0 0 ref $_[0] ? :
596 0 0 unless &_INSTANCE(shift(), ref $self)
630 0 78587 unless $self->_ensure_location_present
653 0 94 unless my $location = $self->location
674 0 1 unless my $location = $self->location
696 0 1 unless my $location = $self->location
737 0 11 unless my $location = $self->location
744 173 78414 unless (exists $self->{'_location'})
746 0 173 unless my $Document = $self->document
747 0 173 if ($Document->isa("PPI::Document::Fragment"))
756 0 173 unless $Document->index_locations
757 0 173 unless (exists $self->{'_location'})
772 0 1 unless ($self == $self->top)
781 0 1 if (&_INSTANCE($_[0], "PPI::Element"))
784 0 0 unless $Token->{'_location'}
785 0 0 unless &refaddr($Token) == &refaddr($start)
819 4 1 defined $_[0]{'content'} ? :
849 732 0 if ref $_[1]
852 6302 0 &_INSTANCE($_[0], 'PPI::Element') ? :
853 1 6301 &_INSTANCE($_[1], 'PPI::Element') ? :