Branch Coverage

blib/lib/optimizer.pm
Criterion Covered Total %
branch 7 66 10.6


line true false branch
14 2 0 if ($] > 5.009)
15 0 0 @_ ? :
36 0 0 unless $args
37 0 0 unless substr($args, length($args) - 1) eq "\n"
50 0 3 unless (defined $type)
54 0 3 if ($type eq 'C' or $type eq 'c') { }
0 3 elsif ($type =~ /^Perl$/i) { }
0 3 elsif ($type eq 'callback' or $type eq 'extend' or $type eq 'mine') { }
0 3 elsif ($type eq 'extend-c') { }
3 0 elsif ($type eq 'sub-detect') { }
60 0 0 unless ref $subref eq 'CODE'
61 0 0 if $type eq 'callback'
62 0 0 if $type eq 'extend'
63 0 0 if $type eq 'mine'
81 0 0 if $op->isa('B::COP')
82 0 0 if $op->name eq 'const'
86 0 0 unless $op->can('next')
95 0 0 if not $$o or $o->seq
97 0 0 unless op_seqmax()
100 0 0 if ($o->isa('B::COP')) { }
0 0 elsif ($o->name eq 'const') { }
0 0 elsif ($o->name eq 'concat') { }
0 0 elsif ($o->name eq 'scalar' or $o->name eq 'lineseq' or $o->name eq 'scope') { }
0 0 elsif ($o->name =~ /^((map|grep)while|(and|or)(assign)?|cond_expr|range)$/) { }
0 0 elsif ($o->name =~ /^enter(loop|iter)/) { }
0 0 elsif ($o->name eq 'qr' or $o->name eq 'match' or $o->name eq 'subst') { }
0 0 elsif ($o->name eq 'exec') { }
106 0 0 if $o->private & 8
112 0 0 if ($o->next and $o->next->name eq 'stringify' and not $o->flags & 64)
113 0 0 if ($o->next->private & 16)
125 0 0 if ($$oldop and ${$o->next;})
152 0 0 if (${$o->next;} and $o->next->name eq 'nextstate' and ${$o->next->sibling;} and not $o->next->sibling->type =~ /exit|warn|die/)
166 0 0 unless $o->can('next')