| line |
true |
false |
branch |
|
65
|
1386 |
2963 |
if ($op eq "text" and $line =~ /$line_re/u) |
|
68
|
9 |
1377 |
if ($2) { } |
|
|
7 |
1370 |
elsif ($3) { } |
|
74
|
673 |
697 |
$4 ? : |
|
78
|
4309 |
36 |
unless $line =~ s/\\\\$/\\\n/u or $line =~ s/\\$//u |
|
84
|
122 |
12240 |
if $token =~ /$cpen_re/u |
|
87
|
1993 |
10369 |
if ($op ne 'text' and $token =~ /$end_re/u) { } |
|
|
841 |
9528 |
elsif ($token eq $tag) { } |
|
|
1083 |
8445 |
elsif ($token eq "$tag$expr") { } |
|
|
59 |
8386 |
elsif ($token eq "$tag$expr$escp") { } |
|
|
10 |
8376 |
elsif ($token eq "$tag$cmnt") { } |
|
|
8364 |
12 |
elsif ($op ne 'cmnt') { } |
|
90
|
122 |
1871 |
if $1 |
|
93
|
785 |
1208 |
if $trimming = $2 and @tree > 1 |
|
115
|
13 |
8351 |
if $token eq "$tag$replace" |
|
118
|
786 |
7578 |
if ($trimming and $token =~ s/^(\s+)//u) |
|
124
|
122 |
8242 |
$capture ? : |
|
130
|
8 |
1861 |
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 |
45 |
if ref $_[0] |
|
160
|
516 |
22 |
eval {
do {
$output = &$compiled(@_);
1
}
} ? : |
|
168
|
4 |
53 |
unless defined $self->{'name'} |
|
171
|
1 |
56 |
if $encoding and not defined($template = decode($encoding, $template)) |
|
186
|
2113 |
9548 |
if $op eq "line" |
|
190
|
6489 |
3059 |
if ($op eq 'text') { } |
|
|
1673 |
1386 |
elsif ($op eq 'code' or $multi) { } |
|
|
122 |
1264 |
elsif ($op eq 'cpen') { } |
|
192
|
1653 |
4836 |
if $newline |
|
193
|
2465 |
4024 |
if length $value |
|
204
|
115 |
7 |
if $next->[0] ne "cpst" and ($next->[1] // "") =~ /^\s*$/u |
|
208
|
1156 |
8392 |
if ($op eq "expr" or $op eq "escp") |
|
211
|
950 |
206 |
if (not $multi and $op eq 'escp' && !$escape || $op eq 'expr' && $escape) { } |
|
|
192 |
14 |
elsif (not $multi) { } |
|
222
|
1085 |
71 |
unless $multi or $capture |
|
226
|
122 |
9426 |
if ($op eq 'cpst') { } |
|
|
122 |
9304 |
elsif ($capture) { } |
|
246
|
136 |
649 |
$tree->[-2][0] eq 'cpst' || $tree->[-2][0] eq 'cpen' ? : |
|
249
|
11 |
774 |
unless $tree->[$i][0] eq "text" |
|
252
|
22 |
752 |
if $tree->[$i][1] =~ s/(\s+)$//u |
|
260
|
134 |
243 |
if ($self->vars and my(@vars) = grep({/^\w+$/u;} keys %$vars)) |