| line |
!l |
l&&!r |
l&&r |
condition |
|
65
|
26 |
3272 |
1483 |
$op eq "text" and $line =~ /$line_re/u |
|
87
|
9022 |
2139 |
2113 |
$op ne "text" and $token =~ /$end_re/u |
|
93
|
1273 |
2 |
838 |
$trimming = $2 and @tree > 1 |
|
118
|
8186 |
11 |
839 |
$trimming and $token =~ s/^(\s+)//u |
|
130
|
219 |
2068 |
2494 |
$tree[-4] and $tree[-4][0] ne "line" |
|
171
|
0 |
57 |
1 |
$encoding and not defined($template = decode($encoding, $template)) |
|
184
|
2 |
376 |
12385 |
++$i <= @$tree and my $next = $tree->[$i] |
|
204
|
1 |
6 |
119 |
$next->[0] ne "cpst" and ($next->[1] // "") =~ /^\s*$/u |
|
211
|
14 |
192 |
1017 |
not $multi and $op eq 'escp' && !$escape || $op eq 'expr' && $escape |
|
260
|
200 |
43 |
135 |
$self->vars and my(@vars) = grep({/^\w+$/u;} keys %$vars) |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
78
|
4 |
36 |
4741 |
$line =~ s/\\\\$/\\\n/u or $line =~ s/\\$//u |
|
130
|
130 |
8 |
2149 |
not $tree[-3] or $tree[-3][0] ne "text" |
|
|
138 |
8 |
2141 |
not $tree[-3] or $tree[-3][0] ne "text" or not $tree[-3][1] =~ /\n$/u |
|
|
2494 |
15 |
2272 |
$tree[-4] and $tree[-4][0] ne "line" or (not $tree[-3] or $tree[-3][0] ne "text" or not $tree[-3][1] =~ /\n$/u) |
|
|
0 |
0 |
2141 |
$tree[-2][0] ne "line" or $tree[-1][0] ne "text" |
|
|
16 |
0 |
2141 |
$tree[-4] and $tree[-4][0] ne "line" or (not $tree[-3] or $tree[-3][0] ne "text" or not $tree[-3][1] =~ /\n$/u) or ($tree[-2][0] ne "line" or $tree[-1][0] ne "text") |
|
190
|
1765 |
14 |
1461 |
$op eq "code" or $multi |
|
208
|
1161 |
62 |
8898 |
$op eq "expr" or $op eq "escp" |
|
211
|
51 |
966 |
192 |
$op eq 'escp' && !$escape || $op eq 'expr' && $escape |
|
219
|
0 |
14 |
1209 |
!$next || $next->[0] ne 'text' |
|
222
|
14 |
58 |
1151 |
$multi or $capture |
|
246
|
63 |
80 |
695 |
$tree->[-2][0] eq 'cpst' || $tree->[-2][0] eq 'cpen' |