| 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') |
|
87
|
0 |
0 |
unless $op->can('next') |
|
96
|
0 |
0 |
if not $$o or $o->seq |
|
98
|
0 |
0 |
unless op_seqmax() |
|
101
|
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|given|when)/) { } |
|
|
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') |