| line |
true |
false |
branch |
|
31
|
11 |
0 |
if (/^when(.*)$/) { } |
|
37
|
11 |
0 |
if (defined $when) |
|
49
|
0 |
1 |
if $_[0] =~ /package attribute may clash with future reserved word: when/ |
|
50
|
1 |
0 |
if (not $redefine_bitch and $_[0] =~ /^Subroutine (.*) redefined/) |
|
54
|
0 |
0 |
if $old_warn_handler |
|
66
|
2 |
1 |
if ($cv and @$info and $$info[-1]{'func'} ne $cv) |
|
72
|
2 |
4 |
if $cond eq '()' |
|
80
|
2 |
1 |
unless eval $code |
|
88
|
0 |
0 |
if ($padname and not $padname->isa('B::SPECIAL')) |
|
89
|
0 |
0 |
if $padname->FLAGS & 16777216 |
|
100
|
0 |
0 |
if ($op->isa('B::SVOP')) { } |
|
|
0 |
0 |
elsif ($op->isa('B::PADOP')) { } |
|
109
|
0 |
0 |
$gv_on_pad ? : |
|
110
|
0 |
0 |
unless ($gv and $$gv) |
|
113
|
0 |
0 |
unless $gv->isa('B::GV') |
|
129
|
0 |
0 |
unless $op->first->name eq 'null' and $op->first->first->name eq 'pushmark' and $op->first->first->sibling->name eq 'rv2av' and $op->first->first->sibling->first->name eq 'gv' and get_gv_name($padlist, $op->first->first->sibling->first) eq '_' and $op->last->name eq 'null' and $op->last->first->name eq 'pushmark' |
|
141
|
0 |
0 |
if ($op->name eq 'padsv') { } |
|
|
0 |
0 |
elsif ($op->name eq 'padav') { } |
|
|
0 |
0 |
elsif ($op->name eq 'padhv') { } |
|
143
|
0 |
0 |
unless $name |
|
154
|
0 |
0 |
if $op->isa('B::NULL') |
|
156
|
0 |
0 |
unless $ok |
|
184
|
0 |
0 |
unless ($names{$$r{'func'}}) |