Branch Coverage

blib/lib/Acme/Perl/VM.pm
Criterion Covered Total %
branch 53 176 30.1


line true false branch
159 0 0 if (ref $PL_op eq 'B::COP') { }
0 0 elsif ($name eq 'entersub') { }
0 0 elsif ($name eq 'aelemfast') { }
0 0 elsif ($PL_op->targ and not $name =~ /leave/) { }
0 0 elsif ($PL_op->can('sv')) { }
160 0 0 $PL_op->label ? :
168 0 0 unless ($gv->isa('B::GV'))
175 0 0 if ($flags & 128) { }
177 0 0 $padname->POK ? :
185 0 0 if ($name eq 'const' or $name eq 'method_named') { }
188 0 0 if (is_scalar($sv)) { }
189 0 0 $sv->POK ? :
197 0 0 if ($padname->POK)
199 0 0 if $PL_op->private & 128
205 0 0 if ($sv->class eq 'GV') { }
206 0 0 $name eq 'gvsv' ? :
208 0 0 if $PL_op->private & 128
215 0 0 if ($flags & 3) == 1
216 0 0 if ($flags & 3) == 2
217 0 0 if ($flags & 3) == 3
219 0 0 if $flags & 4
220 0 0 if $flags & 8
221 0 0 if $flags & 16
222 0 0 if $flags & 32
223 0 0 if $flags & 64
224 0 0 if $flags & 128
271 0 0 if ($cx->argarray) { }
272 0 0 defined $_ ? :
345 0 5 $PL_op->flags & 64 ? :
348 21 10 $PL_op->flags & 64 ? :
397 19 97 if ($cx->hasargs)
408 2 3 if ($cx->ITERVAR)
409 0 2 if ($cx->padvar)
429 0 6 if ($type eq 'SUBST') { }
0 6 elsif ($type eq 'SUB') { }
0 6 elsif ($type eq 'EVAL') { }
0 6 elsif ($type eq 'LOOP') { }
566 72 14 if ($type eq 'EVAL' or $type eq 'SUB')
584 0 0 if (exists $loop{$type})
585 0 0 unless ($loop{$type})
587 0 0 if $type eq 'NULL'
601 0 0 if (exists $loop{$type})
602 0 0 if (not $loop{$type}) { }
0 0 elsif ($cx->label and $cx->label eq $label) { }
604 0 0 $type eq 'NULL' ? :
617 62 80 $op_gimme == 3 ? :
39 142 $op_gimme == 2 ? :
28 181 $op_gimme == 1 ? :
626 36 50 $flags == 2 ? :
15 86 $flags == 1 ? :
634 0 0 $gimme == 2 ? :
0 0 $gimme == 1 ? :
641 36 50 !$wantarray ? :
15 86 !defined($wantarray) ? :
649 0 52 if ($cxix < 0)
658 129 52 $gimme != -1 ? :
662 1 13 if ($PL_op->flags & 8)
665 0 1 if ($PL_cxstack[$cxix]->lval and $PL_cxstack[$cxix]->cv->CvFLAGS & 2)
694 0 162 unless (defined $sv)
705 0 13 unless (defined $sv)
716 22 5 ${$sv->object_2svref;} ? :
723 0 19 unless (defined ${$ref;})
735 0 58 unless (defined ${$ref;})
747 0 4 unless (defined ${$ref;})
800 0 0 unless defined $prefix
803 0 0 if ($stashname eq 'main') { }
846 2 4 if (ref $arg) { }
847 0 2 if (ref $arg ne 'CODE')
856 156 56 if (defined $code_ref)
877 0 0 if defined wantarray
884 0 0 $_ ? :
906 0 0 if ($class eq 'SPECIAL') { }
0 0 elsif ($class eq 'CV') { }
916 0 0 if (${$PL_curpad[$padix];} == ${$_;}) { }
0 0 elsif ($_->ROK and ${$PL_curpad[$padix];} == ${$_->RV;}) { }
924 0 0 if ($padname)
925 0 0 if ($padname->POK)
931 0 0 is_scalar($_) ? :
0 0 $_->ROK ? :
941 0 0 if (ref $_) { }
942 0 0 is_scalar($_) ? :
952 0 0 if ($warn)
972 0 11 unless (@_)
973 0 0 if ($PL_op and is_not_null($PL_op)) { }
989 0 101 if ($flags & 4)
1013 0 88 if ($flags & 4)
1048 31 57 if ($gimme == 2) { }
46 11 elsif ($gimme == 3) { }