| line |
!l |
l&&!r |
l&&r |
condition |
|
326
|
4365 |
12 |
4 |
$name eq 'concat' and $op->first->name eq 'concat' |
|
330
|
3012 |
0 |
1365 |
$name eq 'null' and B::class($op) eq 'UNOP' |
|
|
3012 |
1339 |
26 |
$name eq 'null' and B::class($op) eq 'UNOP' and $op->first->name =~ /^(and|x?or)$/ |
|
|
1339 |
0 |
26 |
$name eq 'null' and B::class($op) eq 'UNOP' and $op->first->name =~ /^(and|x?or)$/ and B::Deparse::null($op->first->sibling) |
|
365
|
58 |
1315 |
5 |
$op->flags & 64 and $flags & 2 |
|
373
|
77 |
1301 |
0 |
$flags & 4 and not $lhs->{'text'} =~ /^(my|our|local|)[\@\(]/ |
|
430
|
0 |
0 |
0 |
$op->name eq 'null' and $op->flags & 128 |
|
463
|
4 |
1 |
1 |
$op->flags & 64 and $op->first->name ne 'concat' |
|
508
|
0 |
1887 |
200 |
$warnings->isa('B::SPECIAL') and $$warnings == 4 |
|
|
0 |
0 |
1887 |
$warnings->isa('B::SPECIAL') and $$warnings == 5 |
|
521
|
0 |
2087 |
0 |
defined $warning_bits and !defined($self->{'warnings'}) || $self->{'warnings'} ne $warning_bits |
|
585
|
2087 |
0 |
0 |
$self->{'linenums'} and $cx != 0.5 |
|
606
|
1351 |
84 |
16 |
$left{assoc_class($op)} and $left{assoc_class($left)} |
|
|
1435 |
2 |
14 |
$left{assoc_class($op)} and $left{assoc_class($left)} and $left{assoc_class($op)} == $left{assoc_class($left)} |
|
693
|
573 |
0 |
0 |
scalar @args == 1 && substr($args[0]{'text'}, 0, 1) eq '(' && substr($args[0]{'text'}, 0, 1) eq ')' |
|
702
|
0 |
0 |
0 |
scalar @args == 1 and substr($args[0], 0, 1) eq '(' |
|
|
0 |
0 |
0 |
scalar @args == 1 and substr($args[0], 0, 1) eq '(' and substr($args[0], -1, 1) eq ')' |
|
713
|
130 |
1321 |
0 |
$right{assoc_class($op)} and $right{assoc_class($right)} |
|
|
1451 |
0 |
0 |
$right{assoc_class($op)} and $right{assoc_class($right)} and $right{assoc_class($op)} == $right{assoc_class($right)} |
|
789
|
0 |
0 |
0 |
$last->{'text'} =~ /^[:'{\[\w_]/ and $first->{'text'} =~ s/([\$\@])([A-Za-z_]\w*)$/$1{$2}/ |
|
|
0 |
0 |
0 |
$last->{'text'} =~ /^[A-Z\\\^\[\]_?]/ and $first->{'text'} =~ s/([\$\@])\^$/$1{^}/ |
|
1013
|
0 |
0 |
0 |
$indir_op->name eq 'const' and $indir_op->private & 64 |
|
1030
|
34 |
15 |
0 |
$name eq 'sort' and $op->private & 3 |
|
|
34 |
15 |
0 |
$name eq 'sort' and $op->private & 16 |
|
1044
|
3 |
12 |
42 |
not $fmt and $kid == $firstkid |
|
|
15 |
31 |
11 |
not $fmt and $kid == $firstkid and $name eq 'sort' |
|
|
43 |
10 |
1 |
not $fmt and $kid == $firstkid and $name eq 'sort' and $firstkid->name =~ /^enter(xs)?sub/ |
|
1061
|
34 |
15 |
0 |
$name eq 'sort' and $op->private & 4 |
|
1067
|
34 |
13 |
2 |
$name eq 'sort' and $op->private & 8 |
|
1078
|
44 |
3 |
0 |
$fmt ne '' and $name eq 'sort' |
|
|
3 |
31 |
13 |
not $fmt and $name eq 'sort' |
|
|
34 |
4 |
9 |
not $fmt and $name eq 'sort' and not B::Deparse::null($op->first->sibling) |
|
|
35 |
8 |
1 |
not $fmt and $name eq 'sort' and not B::Deparse::null($op->first->sibling) and $op->first->sibling->name eq 'entersub' |
|
1176
|
2643 |
0 |
4 |
$kid->name eq 'null' && $kid->targ == 3 && B::Deparse::_op_is_or_was($op, 157) |
|
1201
|
62 |
35 |
0 |
$cx < 1 and B::Deparse::is_scope($right) |
|
|
97 |
0 |
0 |
$cx < 1 and B::Deparse::is_scope($right) and $blockname |
|
|
35 |
0 |
0 |
$cx < 1 and B::Deparse::is_scope($right) and $blockname and $self->{'expand'} < 7 |
|
|
62 |
0 |
35 |
$cx < 1 and $blockname |
|
|
62 |
0 |
35 |
$cx < 1 and $blockname and not $self->{'parens'} |
|
|
0 |
0 |
35 |
$cx < 1 and $blockname and not $self->{'parens'} and $self->{'expand'} < 7 |
|
|
40 |
6 |
16 |
$cx > $lowprec and $highop |
|
1251
|
0 |
0 |
0 |
@a > 2 and not grep((!/^-?\d+$/), @texts) |
|
1292
|
196 |
2 |
76 |
defined $proto && $proto =~ /^;?\*/ || $name eq 'select' and $kid->name eq 'rv2gv' |
|
|
198 |
2 |
74 |
defined $proto && $proto =~ /^;?\*/ || $name eq 'select' and $kid->name eq 'rv2gv' and not $kid->private & 128 |
|
1304
|
270 |
4 |
0 |
$name eq 'chmod' and $first->{'text'} =~ /^\d+$/ |
|
1314
|
245 |
29 |
0 |
not $parens || $nollafr and substr($first->{'text'}, 0, 1) eq '(' |
|
1318
|
15 |
252 |
7 |
defined $proto and $proto =~ /^\*\*/ |
|
|
267 |
0 |
7 |
defined $proto and $proto =~ /^\*\*/ and $kid->name eq 'rv2gv' |
|
|
252 |
1 |
6 |
defined $proto and $proto =~ /^\*\*/ and $kid->name eq 'rv2gv' and not $kid->private & 128 |
|
1327
|
270 |
4 |
0 |
$name eq 'reverse' and $op->private & 8 |
|
1346
|
266 |
8 |
0 |
$name =~ /^(system|exec)$/ and $op->flags & 64 |
|
|
274 |
0 |
0 |
$name =~ /^(system|exec)$/ and $op->flags & 64 and @exprs > 1 |
|
1352
|
0 |
0 |
0 |
$parens and $nollafr |
|
1368
|
29 |
242 |
3 |
$parens and $nollafr |
|
1441
|
0 |
0 |
0 |
$enter->flags & 128 and $] < 5.009 |
|
1469
|
0 |
0 |
0 |
$ary->name eq 'null' and $enter->private & 2 |
|
|
0 |
0 |
0 |
$enter->flags & 64 and not B::Deparse::null($ary->first->sibling->sibling) |
|
1531
|
4 |
1 |
0 |
$$cont_start != $$op and ${$cont_start;} != ${$body->last;} |
|
1549
|
0 |
0 |
0 |
defined $cond_info and not B::Deparse::is_scope($cont) |
|
|
0 |
0 |
0 |
defined $cond_info and not B::Deparse::is_scope($cont) and $self->{'expand'} < 3 |
|
1769
|
0 |
2 |
0 |
$op->name eq 'match' and my $targ = $op->targ |
|
1787
|
5 |
1 |
0 |
${$bregexp = $op->pmregexp;} and ${$cv = $bregexp->qr_anoncv;} |
|
1824
|
1 |
0 |
4 |
$matchop->name =~ /^(?:match|transr?|subst)\z/ and $matchop->flags & 128 |
|
1901
|
0 |
0 |
0 |
$matchop->name =~ /^(?:match|transr?|subst)\z/ and $matchop->flags & 128 |
|
1945
|
0 |
0 |
0 |
ref $expr eq 'ARRAY' and scalar @$expr == 2 |
|
1973
|
1353 |
0 |
94 |
ref $info and $info->isa('B::DeparseTree::TreeNode') |
|
1983
|
1426 |
14 |
7 |
$op->private & (128 | $our_intro) and not $self->{'avoid_local'}{$$op} |
|
1989
|
0 |
0 |
0 |
utf8::decode($text) and $text =~ /^\W(\w+::)*\w+\z/ |
|
2001
|
1 |
3 |
0 |
not B::Deparse::want_scalar($op) and $self->func_needs_parens($text, $cx, 16) |
|
2025
|
0 |
0 |
0 |
not B::Deparse::want_scalar($op) and $self->func_needs_parens($text, $cx, 16) |
|
2036
|
1352 |
0 |
88 |
ref $info and $info->isa('B::DeparseTree::TreeNode') |
|
2055
|
4378 |
0 |
0 |
!$forbid_parens && $self->{'in_refgen'} && $op->name =~ /[ah]v\z/ && ($op->flags & 24) == 8 |
|
2059
|
0 |
4400 |
0 |
not $need_parens and $self->{'in_refgen'} |
|
2062
|
1230 |
3141 |
29 |
$op->private & 128 and not $self->{'avoid_local'}{$$op} |
|
2092
|
0 |
0 |
0 |
$op->private & 128 and not $self->{'avoid_local'}{$$op} |
|
2145
|
252 |
2 |
0 |
$name eq 'umask' and $info->{'text'} =~ /^\d+$/ |
|
2191
|
46 |
1044 |
706 |
$name =~ /^(?!\d)\w/ and not $v =~ /^\$[ab]\z/ |
|
|
1090 |
133 |
573 |
$name =~ /^(?!\d)\w/ and not $v =~ /^\$[ab]\z/ and not $globalnames{$name} |
|
|
1177 |
539 |
34 |
$name =~ /^(?!\d)\w/ and not $v =~ /^\$[ab]\z/ and not $globalnames{$name} and $self->{'hints'} & $strict_bits{'vars'} |
|
|
672 |
21 |
13 |
$name =~ /^(?!\d)\w/ and not $v =~ /^\$[ab]\z/ and not $globalnames{$name} and $self->{'hints'} & $strict_bits{'vars'} and not $self->B::Deparse::lex_in_scope($v, 1) |
|
2264
|
0 |
0 |
0 |
@padops and @padops == @entersubops |
|
2286
|
0 |
0 |
0 |
$$kid and $kid->type == 5 |
|
2291
|
0 |
0 |
0 |
$$kid and $kid->type == 5 |
|
2295
|
0 |
0 |
0 |
$$kid and $kid->name eq 'srefgen' |
|
|
0 |
0 |
0 |
$$kid and $kid->name eq 'srefgen' and $kid->flags & 4 |
|
|
0 |
0 |
0 |
$$kid and $kid->name eq 'srefgen' and $kid->flags & 4 and $kid->first->flags & 4 |
|
|
0 |
0 |
0 |
$$kid and $kid->name eq 'srefgen' and $kid->flags & 4 and $kid->first->flags & 4 and $kid->first->first->name =~ /^pad[sah]v$/ |
|
|
0 |
0 |
0 |
$$kid and $kid->name eq 'srefgen' and $kid->flags & 4 and $kid->first->flags & 4 and $kid->first->first->name =~ /^pad[sah]v$/ and $kid->first->first->targ == $padop->targ |
|
2346
|
2 |
0 |
0 |
$kid->name eq 'list' and B::Deparse::want_list($kid) |
|
2440
|
2 |
0 |
0 |
$minfo->{'object'}->name eq 'scope' and B::Deparse::want_list($minfo->{'object'}) |
|
2498
|
0 |
0 |
0 |
not B::Deparse::null($kid->sibling) and $kid->sibling->name eq 'readline' |
|
|
0 |
0 |
0 |
not B::Deparse::null($kid->sibling) and $kid->sibling->name eq 'readline' and $kid->sibling->flags & 64 |
|
|
0 |
0 |
0 |
not B::Deparse::null($kid->sibling) and $kid->sibling->name eq 'trans' |
|
|
0 |
0 |
0 |
not B::Deparse::null($kid->sibling) and $kid->sibling->name eq 'trans' and $kid->sibling->flags & 64 |
|
|
0 |
0 |
0 |
$op->flags & 128 and $cx < 1 |
|
|
0 |
0 |
0 |
$op->flags & 128 and $cx < 1 and not $op->targ |
|
|
0 |
0 |
0 |
not B::Deparse::null($kid->sibling) and $kid->sibling->name eq 'null' |
|
|
0 |
0 |
0 |
not B::Deparse::null($kid->sibling) and $kid->sibling->name eq 'null' and B::class($kid->sibling) eq 'UNOP' |
|
|
0 |
0 |
0 |
not B::Deparse::null($kid->sibling) and $kid->sibling->name eq 'null' and B::class($kid->sibling) eq 'UNOP' and $kid->sibling->first->flags & 64 |
|
|
0 |
0 |
0 |
not B::Deparse::null($kid->sibling) and $kid->sibling->name eq 'null' and B::class($kid->sibling) eq 'UNOP' and $kid->sibling->first->flags & 64 and $kid->sibling->first->name eq 'rcatline' |
|
2591
|
5255 |
0 |
0 |
$] >= 5.028 and $op->targ == 157 |
|
2608
|
2638 |
5 |
0 |
not B::Deparse::null($kid->sibling) and $kid->sibling->name eq 'readline' |
|
|
2643 |
0 |
0 |
not B::Deparse::null($kid->sibling) and $kid->sibling->name eq 'readline' and $kid->sibling->flags & 64 |
|
|
2638 |
5 |
0 |
not B::Deparse::null($kid->sibling) and $kid->sibling->name =~ /^transr?\z/ |
|
|
2643 |
0 |
0 |
not B::Deparse::null($kid->sibling) and $kid->sibling->name =~ /^transr?\z/ and $kid->sibling->flags & 64 |
|
|
2629 |
10 |
4 |
$op->flags & 128 and $cx < 1 |
|
|
2639 |
4 |
0 |
$op->flags & 128 and $cx < 1 and not $op->targ |
|
|
2638 |
0 |
5 |
not B::Deparse::null($kid->sibling) and $kid->sibling->name eq 'null' |
|
|
2638 |
3 |
2 |
not B::Deparse::null($kid->sibling) and $kid->sibling->name eq 'null' and B::class($kid->sibling) eq 'UNOP' |
|
|
3 |
2 |
0 |
not B::Deparse::null($kid->sibling) and $kid->sibling->name eq 'null' and B::class($kid->sibling) eq 'UNOP' and $kid->sibling->first->flags & 64 |
|
|
5 |
0 |
0 |
not B::Deparse::null($kid->sibling) and $kid->sibling->name eq 'null' and B::class($kid->sibling) eq 'UNOP' and $kid->sibling->first->flags & 64 and $kid->sibling->first->name eq 'rcatline' |
|
2787
|
0 |
0 |
0 |
$kid->name eq 'null' and not B::Deparse::null($kid->first) |
|
2957
|
0 |
0 |
0 |
not ref $replroot and $replroot > 0 |
|
3097
|
33 |
6 |
192 |
defined prototype $builtinname and $builtinname ne 'CORE::readline' |
|
|
39 |
168 |
24 |
defined prototype $builtinname and $builtinname ne 'CORE::readline' and prototype($builtinname) =~ /^;?\*/ |
|
|
174 |
0 |
24 |
defined prototype $builtinname and $builtinname ne 'CORE::readline' and prototype($builtinname) =~ /^;?\*/ and $kid->name eq 'rv2gv' |
|
3135
|
5 |
1 |
0 |
$operator eq '-' and $operand->{'text'} =~ /^[a-zA-Z](?!\w)/ |
|
3275
|
0 |
0 |
31 |
$default and index($str, $default) == -1 |