line |
true |
false |
branch |
175
|
8 |
8 |
unless *{$_;}{'CODE'} |
188
|
6 |
21 |
if ($hints and $hints != $feature::hint_mask) { } |
|
7 |
14 |
elsif ($hints) { } |
246
|
0 |
1 |
if $op->flags & 128 |
250
|
0 |
1 |
$quoted ? : |
252
|
0 |
1 |
if $i > 127 |
270
|
3 |
0 |
$op->first->sibling->isa('B::NULL') ? : |
272
|
0 |
3 |
if ($self->pure_string($child)) |
287
|
0 |
3 |
if ($code =~ s/^((?:CORE::)?do) \{/$1({/) |
296
|
0 |
0 |
if $glob->name eq 'rv2gv' |
300
|
0 |
0 |
$scope ? : |
328
|
27 |
0 |
if ($cx <= 4) { } |
339
|
0 |
0 |
if (not B::Deparse::null($op->first) and $op->first->name eq 'null' and $op->first->targ == 157) { } |
354
|
0 |
4 |
unless (B::Deparse::null($kid->sibling)) |
363
|
0 |
0 |
if ($op->flags & 128) { } |
384
|
0 |
2 |
if ($op->flags & 128) { } |
389
|
0 |
2 |
if not $parens and substr($fh, 0, 1) eq '(' |
394
|
2 |
0 |
if ($parens) { } |
410
|
0 |
2 |
$op->flags & 128 ? : |
413
|
2 |
0 |
if ($keyword =~ /^CORE::/ or $kid->name ne 'const') |
417
|
2 |
0 |
if ($text =~ /^\$?(\w|::|\`)+$/ or $text =~ /[<>]/) { } |
423
|
0 |
2 |
if ($cx >= 5 or $self->{'parens'}) { } |
453
|
0 |
0 |
if ($op->private & 64) { } |
454
|
0 |
0 |
if ($op->flags & 128) |
460
|
0 |
0 |
if ($op->flags & 128) { } |
479
|
0 |
0 |
if ($op->private & 64) { } |
|
0 |
0 |
elsif ($op->flags & 128) { } |
521
|
1 |
3242 |
if (class($kid) eq 'NULL') |
537
|
2586 |
3164 |
if (not $lop->private & 192 || $lop->name eq 'undef' or $lop->name =~ /^(?:entersub|exit|open|split)\z/) |
544
|
3141 |
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) { } |
545
|
10 |
3131 |
if ($lop->private & 64) { } |
546
|
0 |
10 |
if $local =~ /^(?:local|our|my)$/ |
549
|
0 |
3131 |
if $local =~ /^(?:local|our|state)$/ |
556
|
0 |
12 |
if $local =~ /^(?:my|local|state)$/ |
564
|
0 |
2 |
if $local =~ /^(?:my|our|state)$/ |
568
|
8 |
3234 |
if $local eq 'either' |
569
|
2566 |
676 |
if (B::Deparse::null($kid->sibling) and not $local) |
576
|
3156 |
85 |
if ($local) { } |
577
|
14 |
3142 |
if (class($kid) eq 'UNOP' and $kid->first->name eq 'gvsv') { } |
592
|
648 |
28 |
if ($local) { } |
615
|
2 |
0 |
if ($kid->name eq 'null') |
618
|
0 |
2 |
if ($anoncode->name eq 'anonconst') |
621
|
2 |
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') { } |
627
|
0 |
0 |
if ($sib_name =~ /^enter(xs)?sub/) |
631
|
0 |
0 |
if ($self->{'parens'} or $kid->sibling->private & 8) |
647
|
0 |
2 |
$op->flags & 128 ? : |
648
|
0 |
2 |
if (class($op) eq 'UNOP' and $op->first->name eq 'const' and $op->first->private & 64) { } |
657
|
0 |
2 |
$op->first->name eq 'const' && $op->first->private & 2 ? : |
682
|
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) |
707
|
0 |
0 |
if ($newcond->name eq 'lineseq') |
719
|
0 |
0 |
if $i |
721
|
0 |
0 |
unless (B::Deparse::null($false)) |
734
|
0 |
86 |
if ($op->private & 0) |
749
|
2 |
574 |
unless B::Deparse::null($op->first->sibling) |
754
|
0 |
574 |
if ($op->flags & 128 and not $op->flags & 32) { } |
|
0 |
574 |
elsif ($op->private & 8) { } |
771
|
0 |
574 |
if (B::Deparse::is_scope($kid)) { } |
|
574 |
0 |
elsif ($kid->first->name eq 'gv') { } |
|
0 |
0 |
elsif (B::Deparse::is_scalar($kid->first) and $kid->first->name ne 'rv2cv') { } |
779
|
540 |
34 |
if (class($gv) eq 'GV' and class($cv = $gv->CV) ne 'SPECIAL' or $gv->FLAGS & 2048 and class($cv = $gv->RV) eq 'CV') |
781
|
1 |
539 |
if $cv->FLAGS & 1024 |
787
|
0 |
574 |
if ($self->lex_in_scope("&$kid") or $self->lex_in_scope("&$kid", 1)) { } |
|
574 |
0 |
elsif (not $amper) { } |
792
|
0 |
574 |
if ($subname_info->{'text'} eq 'main::') { } |
795
|
0 |
574 |
if (not $kid =~ /::/ and $kid ne 'x') |
800
|
0 |
0 |
if (exists $feature_keywords{$kid}) { } |
|
0 |
0 |
elsif (do {
local $@;
local $SIG{'__DIE__'};
eval {
do {
() = prototype "CORE::$kid";
1
}
}
}) { } |
801
|
0 |
0 |
if $self->feature_enabled($kid) |
808
|
0 |
574 |
unless ($subname_info->{'text'} =~ /^(?:\w|::)(?:[\w\d]|::(?!\z))*\z/) |
817
|
0 |
0 |
B::Deparse::is_subscriptable($kid->first) || $kid->first->name eq 'padcv' ? : |
837
|
0 |
574 |
if (not $declared and defined $proto) |
845
|
1 |
573 |
if ($declared and defined $proto and not $amper) { } |
848
|
0 |
1 |
if ($amper eq '&') { } |
851
|
1 |
0 |
if @$args |
858
|
0 |
574 |
if ($prefix or $amper) { } |
859
|
0 |
0 |
if ($sub_name eq '&') |
864
|
0 |
0 |
if ($op->flags & 64) { } |
876
|
1 |
573 |
defined $proto ? : |
877
|
573 |
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) { } |
880
|
379 |
194 |
@nodes > 0 ? : |
882
|
0 |
573 |
if ($self->dedup_func_parens(\@nodes)) { } |
896
|
573 |
0 |
if ($subname_info and $other_ops) |
941
|
0 |
0 |
if ($subname_info and $other_ops) |
956
|
4 |
8 |
$_[1]->private & 8 ? : |
967
|
0 |
0 |
$flip->flags & 128 ? : |
992
|
0 |
5255 |
$] < 5.022 ? : |
1028
|
0 |
6 |
if ($first_kid->name eq 'rv2gv') |
1032
|
0 |
4 |
if (B::Deparse::is_scalar($kid) and $] < 5.021 || $op->flags & 128) |
1036
|
0 |
0 |
if ($kid_node->{'text'} eq 'ARGV') { } |
1037
|
0 |
0 |
if (@other_ops) { } |
1063
|
0 |
0 |
$] < 5.022 ? : |
1067
|
0 |
18 |
$] < 5.022 ? : |
1075
|
0 |
6 |
if ($op->private & 16) |
1098
|
6 |
0 |
if ($class eq 'PVOP') { } |
|
0 |
0 |
elsif ($class eq 'PADOP') { } |
1107
|
1 |
5 |
if $priv_flags & 32 |
1108
|
1 |
5 |
if $priv_flags & 128 |
1109
|
4 |
2 |
if $from eq $to and $flags eq '' |
1110
|
1 |
5 |
if $priv_flags & 8 |