| line |
true |
false |
branch |
|
65
|
1483 |
3296 |
if ($op eq "text" and $line =~ /$line_re/u) |
|
68
|
9 |
1474 |
if ($2) { } |
|
|
7 |
1467 |
elsif ($3) { } |
|
74
|
717 |
750 |
$4 ? : |
|
78
|
4739 |
36 |
unless $line =~ s/\\\\$/\\\n/u or $line =~ s/\\$//u |
|
84
|
126 |
13146 |
if $token =~ /$cpen_re/u |
|
87
|
2113 |
11159 |
if ($op ne 'text' and $token =~ /$end_re/u) { } |
|
|
894 |
10265 |
elsif ($token eq $tag) { } |
|
|
1150 |
9115 |
elsif ($token eq "$tag$expr") { } |
|
|
59 |
9056 |
elsif ($token eq "$tag$expr$escp") { } |
|
|
10 |
9046 |
elsif ($token eq "$tag$cmnt") { } |
|
|
9034 |
12 |
elsif ($op ne 'cmnt') { } |
|
90
|
126 |
1987 |
if $1 |
|
93
|
838 |
1275 |
if $trimming = $2 and @tree > 1 |
|
115
|
13 |
9021 |
if $token eq "$tag$replace" |
|
118
|
839 |
8195 |
if ($trimming and $token =~ s/^(\s+)//u) |
|
124
|
126 |
8908 |
$capture ? : |
|
130
|
8 |
2140 |
if $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") |
|
145
|
377 |
168 |
unless ($compiled) |
|
148
|
7 |
370 |
unless $compiled = eval $self->_wrap($code, @_) |
|
155
|
3 |
46 |
if ref $_[0] |
|
160
|
516 |
22 |
eval {
do {
$output = &$compiled(@_);
1
}
} ? : |
|
168
|
4 |
54 |
unless defined $self->{'name'} |
|
171
|
1 |
57 |
if $encoding and not defined($template = decode($encoding, $template)) |
|
186
|
2264 |
10120 |
if $op eq "line" |
|
190
|
6880 |
3240 |
if ($op eq 'text') { } |
|
|
1779 |
1461 |
elsif ($op eq 'code' or $multi) { } |
|
|
126 |
1335 |
elsif ($op eq 'cpen') { } |
|
192
|
1751 |
5129 |
if $newline |
|
193
|
2628 |
4252 |
if length $value |
|
204
|
119 |
7 |
if $next->[0] ne "cpst" and ($next->[1] // "") =~ /^\s*$/u |
|
208
|
1223 |
8897 |
if ($op eq "expr" or $op eq "escp") |
|
211
|
1017 |
206 |
if (not $multi and $op eq 'escp' && !$escape || $op eq 'expr' && $escape) { } |
|
|
192 |
14 |
elsif (not $multi) { } |
|
222
|
1151 |
72 |
unless $multi or $capture |
|
226
|
126 |
9994 |
if ($op eq 'cpst') { } |
|
|
126 |
9868 |
elsif ($capture) { } |
|
246
|
143 |
695 |
$tree->[-2][0] eq 'cpst' || $tree->[-2][0] eq 'cpen' ? : |
|
249
|
11 |
827 |
unless $tree->[$i][0] eq "text" |
|
252
|
22 |
805 |
if $tree->[$i][1] =~ s/(\s+)$//u |
|
260
|
135 |
242 |
if ($self->vars and my(@vars) = grep({/^\w+$/u;} keys %$vars)) |