| line |
!l |
l&&!r |
l&&r |
condition |
|
180
|
3 |
0 |
0 |
$interim_return and not $final_return |
|
352
|
1 |
0 |
1 |
$expr_scope->{'mutators'} > 0 && @{$expr_scope->{'matches'};} > 1 |
|
446
|
21 |
18 |
9 |
$match_from <= $_ && $_ <= $match_to |
|
595
|
0 |
0 |
0 |
length $var > 2 and substr($var, 0, 2) eq '$#' |
|
598
|
0 |
0 |
0 |
length $var > 2 and substr($var, 0, 2) eq '@$' || substr($var, 0, 2) eq '%$' |
|
674
|
0 |
51 |
0 |
$varpos > 0 and $var{'name'} eq ';' |
|
|
51 |
0 |
0 |
$varpos > 0 and $var{'name'} eq ';' and substr($source, $varpos - 1, 1) =~ /[\$\@%]/u |
|
1769
|
0 |
1565 |
126 |
$varlen > 1 && substr($var, 0, 1) eq '#' |
| line |
l |
!l |
condition |
|
27
|
0 |
10 |
shift() // {} |
|
99
|
3 |
1 |
$opt_ref->{'from'} // 0 |
|
100
|
1 |
0 |
$code // '' |
|
242
|
2 |
0 |
$leading_ws //= '' |
|
243
|
1 |
1 |
$leading_assignment //= '' |
|
331
|
3 |
0 |
$opt_ref->{'from'} // 0 |
|
332
|
0 |
0 |
$code // '' |
|
488
|
3 |
0 |
$var->{'declared_at'} // -1 |
|
1295
|
20 |
480 |
$1 // 's' |
|
1831
|
991 |
0 |
(grep {defined $_;} @{$-{'declarator'};})[-1] // '' |
|
|
907 |
84 |
$+{'desc'} // '' |
|
1883
|
104 |
0 |
$Code::ART::varuse{$id} // [] |
|
1890
|
739 |
0 |
$Code::ART::varuse{$id} // [] |
|
1892
|
739 |
0 |
$Code::ART::varinfo{$id}{'start_of_scope'} //= -1 |
|
1931
|
2814 |
552 |
$var->{$gram_type}{$other_name} //= {'from', $var->{'declared_at'}, 'to', $var->{'end_of_scope'}} |
|
1941
|
843 |
0 |
$var->{'declared_at'} // 0 |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
93
|
2 |
0 |
6 |
not defined $code or ref $code |
|
100
|
3 |
1 |
0 |
$opt_ref->{'to'} // length($code // '') - 1 |
|
101
|
0 |
4 |
0 |
$opt_ref->{'name'} // $DEFAULT_SUB_NAME |
|
102
|
0 |
4 |
0 |
$opt_ref->{'data'} // $DEFAULT_DATA_PARAM |
|
246
|
0 |
1 |
1 |
$trailing{'comma'} or not $trailing{'semicolon'} |
|
309
|
0 |
1 |
1 |
$trailing{'comma'} || !$trailing{'semicolon'} |
|
324
|
0 |
0 |
3 |
not defined $code or ref $code |
|
330
|
0 |
3 |
0 |
$opt_ref->{'name'} // $DEFAULT_LEXICAL_NAME |
|
332
|
3 |
0 |
0 |
$opt_ref->{'to'} // length($code // '') - 1 |
|
352
|
1 |
1 |
1 |
$closure ||= $expr_scope->{'mutators'} > 0 && @{$expr_scope->{'matches'};} > 1 |
|
598
|
0 |
0 |
0 |
substr($var, 0, 2) eq '@$' || substr($var, 0, 2) eq '%$' |
|
701
|
11 |
40 |
427 |
$varid == $varpos or $allvars->{$varid}{'used_at'}{$varpos} |
|
1343
|
3548 |
110 |
0 |
$CONFLATION_CHARS{$&} // $& |
|
1347
|
605 |
0 |
0 |
$VARIANT_PAT{lc $&} // $& |
|
1775
|
211 |
126 |
1354 |
$+{'array'} || $twigil |
|
1779
|
1540 |
151 |
0 |
$Code::ART::varscope[-1]{'ids'}{$var} // $var |
|
1824
|
991 |
0 |
0 |
$decl->{'decl_name'} // $+{'var'} |
|
1848
|
739 |
0 |
0 |
$Code::ART::varinfo{$decl->{'id'}}{'sigil'} //= substr($_, $decl->{'id'}, 1) |
|
1892
|
739 |
0 |
0 |
$Code::ART::varinfo{$id}{'end_of_scope'} //= length $source |
|
1924
|
843 |
5460 |
9020 |
$var == $other_var or not _share_scope($var, $other_var) |