Branch Coverage

blib/lib/Perl6/Contexts.pm
Criterion Covered Total %
branch 59 80 73.7


line true false branch
149 44 0 unless ref $cv eq 'B::CV'
170 4 10 unless $donecvs{$curcv}
183 0 4 if $curcv->PADLIST->isa('B::SPECIAL')
195 17 7 if ref $name eq 'B::SPECIAL'
197 4 3 unless $name->PVX =~ /^\$t[0-9]$/
205 1059 2497 unless $self and $$self
206 12 2485 unless $next and $$next
234 1190 2803 if ($op->can('flags') and $op->flags & 4)
241 2787 1190 if $$kid
244 2787 1190 if $kid
247 0 0 if (B::class($op) eq 'PMOP' and $op->pmreplroot and ${$op->pmreplroot;})
263 131 306 unless $self and $$self
265 4 302 unless exists $$parents[0]
269 32 270 if ($self->name eq 'nextstate')
298 0 7 unless my $nextstate = $$previous{$$padav}
307 4 3 if $nextstate->can('sibling') and ${$nextstate->sibling;} == $$padav
309 3 4 if $parent->can('first') and ${$parent->first;} == $$padav
310 0 7 if $parent->can('last') and ${$parent->last;} == $$padav
343 0 0 if $parent->can('first') and ${$parent->first;} == $$padsv
344 0 0 if $parent->can('last') and ${$parent->last;} == $$padsv
393 0 1 unless my $nextstate = $$previous{$$padav}
405 0 1 if $parent->can('first') and ${$parent->first;} == $$padav
406 1 0 if $parent->can('last') and ${$parent->last;} == $$padav
409 1 0 if $nextstate->can('sibling') and ${$nextstate->sibling;} == $$padav
441 283 19 unless $self->name eq 'padav' or $self->name eq 'padhv'
442 10 9 unless 2 == ($self->flags & 3)
443 3 6 if $self->flags & 16
444 2 4 if exists $$mathops{$non_null_parent->name}
445 0 4 if exists $$boolops{$non_null_parent->name}
446 1 3 if exists $$stringops{$non_null_parent->name}
447 0 3 if $did_already{$$self}
451 283 19 unless $self->name eq 'padav' or $self->name eq 'padhv'
456 15 4 unless $non_null_parent->name eq 'entersub'
457 0 4 unless 3 == ($self->flags & 3)
458 0 4 if $did_already{$$self}
461 288 14 unless $self->name eq 'padav'
466 13 1 unless exists $$stringops{$non_null_parent->name}
467 0 1 unless 2 == ($self->flags & 3)
468 0 1 if $did_already{$$self}
470 0 1 unless @padtmps