| line |
true |
false |
branch |
|
228
|
3 |
3 |
unless *{$_;}{'CODE'} |
|
241
|
6 |
19 |
if ($hints and $hints != $feature::hint_mask) { } |
|
|
7 |
12 |
elsif ($hints) { } |
|
298
|
3 |
0 |
$op->first->sibling->isa('B::NULL') ? : |
|
300
|
0 |
3 |
if ($self->pure_string($child)) |
|
320
|
0 |
0 |
if ($code =~ s/^((?:CORE::)?do) \{/$1({/) |
|
344
|
27 |
0 |
if ($cx <= 4) { } |
|
362
|
0 |
0 |
if (not B::Deparse::null($op->first) and $op->first->name eq 'null' and $op->first->targ == 157) { } |
|
377
|
0 |
4 |
unless (B::Deparse::null($kid->sibling)) |
|
400
|
0 |
2 |
if ($op->flags & 128) { } |
|
405
|
0 |
2 |
if not $parens and substr($fh, 0, 1) eq '(' |
|
410
|
2 |
0 |
if ($parens) { } |
|
431
|
4 |
6 |
$op->flags & 128 ? : |
|
434
|
10 |
0 |
if ($keyword =~ /^CORE::/ or $kid->name ne 'const') |
|
438
|
10 |
0 |
if ($text =~ /^\$?(\w|::|\`)+$/ or $text =~ /[<>]/) { } |
|
444
|
8 |
2 |
if ($cx >= 5 or $self->{'parens'}) { } |
|
474
|
0 |
0 |
if ($op->private & 64) { } |
|
475
|
0 |
0 |
if ($op->flags & 128) |
|
481
|
0 |
0 |
if ($op->flags & 128) { } |
|
500
|
0 |
0 |
if ($op->private & 64) { } |
|
|
0 |
0 |
elsif ($op->flags & 128) { } |
|
544
|
1 |
3269 |
if (class($kid) eq 'NULL') |
|
560
|
2602 |
3219 |
if (not $lop->private & 192 || $lop->name eq 'undef' or $lop->name =~ /^(?:entersub|exit|open|split)\z/) |
|
567
|
3196 |
23 |
if ($lop->name =~ /^pad[ash]v$/) { } |
|
|
12 |
11 |
elsif ($lop->name =~ /^(gv|rv2)[ash]v$/ and $lop->private & 64 or $lop->name eq 'null' and $lop->first->name eq 'gvsv' and $lop->first->private & 64) { } |
|
|
2 |
18 |
elsif ($lop->name ne 'undef' and not $lop->name eq 'sort' && $lop->flags & 4) { } |
|
568
|
10 |
3186 |
if ($lop->private & 64) { } |
|
569
|
0 |
10 |
if $local =~ /^(?:local|our|my)$/ |
|
572
|
0 |
3186 |
if $local =~ /^(?:local|our|state)$/ |
|
579
|
0 |
12 |
if $local =~ /^(?:my|local|state)$/ |
|
587
|
0 |
2 |
if $local =~ /^(?:my|our|state)$/ |
|
591
|
8 |
3261 |
if $local eq 'either' |
|
592
|
2582 |
687 |
if (B::Deparse::null($kid->sibling) and not $local) |
|
599
|
3211 |
85 |
if ($local) { } |
|
600
|
14 |
3197 |
if (class($kid) eq 'UNOP' and $kid->first->name eq 'gvsv') { } |
|
614
|
659 |
28 |
if ($local) { } |
|
638
|
0 |
0 |
if ($kid->name eq 'null') |
|
641
|
0 |
0 |
if ($anoncode->name eq 'anonconst') |
|
644
|
0 |
0 |
if ($anoncode->name eq 'anoncode' or not B::Deparse::null($anoncode = $kid->sibling) and $anoncode->name eq 'anoncode') { } |
|
|
0 |
0 |
elsif ($kid->name eq 'pushmark') { } |
|
650
|
0 |
0 |
if ($sib_name =~ /^enter(xs)?sub/) |
|
654
|
0 |
0 |
if ($self->{'parens'} or $kid->sibling->private & 8) |
|
670
|
0 |
1 |
$op->flags & 128 ? : |
|
671
|
0 |
1 |
if (class($op) eq 'UNOP' and $op->first->name eq 'const' and $op->first->private & 64) { } |
|
680
|
0 |
1 |
$op->first->name eq 'const' && $op->first->private & 2 ? : |
|
708
|
0 |
0 |
unless ($cx < 1 and (B::Deparse::is_scope($true) and $true->name ne 'null') and B::Deparse::is_scope($false) || B::Deparse::is_ifelse_cont($false) and $self->{'expand'} < 7) |
|
733
|
0 |
0 |
if ($newcond->name eq 'lineseq') |
|
745
|
0 |
0 |
if $i |
|
747
|
0 |
0 |
unless (B::Deparse::null($false)) |
|
760
|
0 |
72 |
if ($op->private & 0) |
|
775
|
2 |
594 |
unless B::Deparse::null($op->first->sibling) |
|
780
|
0 |
594 |
if ($op->flags & 128 and not $op->flags & 32) { } |
|
|
0 |
594 |
elsif ($op->private & 8) { } |
|
794
|
0 |
594 |
if (B::Deparse::is_scope($kid)) { } |
|
|
594 |
0 |
elsif ($kid->first->name eq 'gv') { } |
|
|
0 |
0 |
elsif (B::Deparse::is_scalar($kid->first) and $kid->first->name ne 'rv2cv') { } |
|
802
|
560 |
34 |
if (class($gv) eq 'GV' and class($cv = $gv->CV) ne 'SPECIAL' or $gv->FLAGS & 2048 and class($cv = $gv->RV) eq 'CV') |
|
804
|
1 |
559 |
if $cv->FLAGS & 1024 |
|
810
|
0 |
594 |
if ($self->lex_in_scope("&$kid") or $self->lex_in_scope("&$kid", 1)) { } |
|
|
594 |
0 |
elsif (not $amper) { } |
|
815
|
0 |
594 |
if ($subname_info->{'text'} eq 'main::') { } |
|
818
|
0 |
594 |
if (not $kid =~ /::/ and $kid ne 'x') |
|
823
|
0 |
0 |
if (exists $feature_keywords{$kid}) { } |
|
|
0 |
0 |
elsif (do {
local $@;
local $SIG{'__DIE__'};
eval {
do {
() = prototype "CORE::$kid";
1
}
}
}) { } |
|
824
|
0 |
0 |
if $self->feature_enabled($kid) |
|
831
|
0 |
594 |
unless ($subname_info->{'text'} =~ /^(?:\w|::)(?:[\w\d]|::(?!\z))*\z/) |
|
840
|
0 |
0 |
is_subscriptable($kid->first) || $kid->first->name eq 'padcv' ? : |
|
859
|
0 |
594 |
if (not $declared and defined $proto) |
|
867
|
1 |
593 |
if ($declared and defined $proto and not $amper) { } |
|
870
|
0 |
1 |
if ($amper eq '&') { } |
|
873
|
1 |
0 |
if @$args |
|
879
|
0 |
594 |
if ($prefix or $amper) { } |
|
880
|
0 |
0 |
if ($sub_name eq '&') |
|
885
|
0 |
0 |
if ($op->flags & 64) { } |
|
897
|
1 |
593 |
defined $proto ? : |
|
898
|
593 |
1 |
if (not $declared) { } |
|
|
0 |
1 |
elsif ($dproto =~ /^\s*\z/) { } |
|
|
0 |
1 |
elsif ($dproto eq '$' and B::Deparse::is_scalar($exprs[0])) { } |
|
|
1 |
0 |
elsif ($dproto ne '$' and defined $proto || $simple) { } |
|
907
|
593 |
0 |
if ($subname_info and $other_ops) |
|
950
|
0 |
0 |
if ($subname_info and $other_ops) |
|
965
|
4 |
8 |
$_[1]->private & 8 ? : |
|
976
|
0 |
0 |
$flip->flags & 128 ? : |
|
1001
|
0 |
4392 |
$] < 5.022 ? : |
|
1037
|
0 |
18 |
$] < 5.022 ? : |
|
1043
|
0 |
6 |
if ($op->private & 16) |
|
1067
|
6 |
0 |
if ($class eq 'PVOP') { } |
|
|
0 |
0 |
elsif ($class eq 'PADOP') { } |
|
1076
|
1 |
5 |
if $priv_flags & 32 |
|
1077
|
1 |
5 |
if $priv_flags & 128 |
|
1078
|
4 |
2 |
if $from eq $to and $flags eq '' |
|
1079
|
1 |
5 |
if $priv_flags & 8 |