| line |
true |
false |
branch |
|
39
|
11 |
3 |
if (ref $_[0] eq 'HASH') { } |
|
95
|
0 |
14 |
if ($@) |
|
116
|
0 |
0 |
if ($code_lines[$bi] =~ /^# LINE: (\d+)$/u) |
|
123
|
0 |
0 |
unless ($template_line) |
|
128
|
0 |
0 |
if $start_part <= 0 |
|
130
|
0 |
0 |
if $end_part > scalar @raw_lines |
|
143
|
0 |
0 |
if ($error =~ /Global symbol "([^"]+)" requires explicit package name/u) { } |
|
|
0 |
0 |
elsif ($raw_lines[$template_line - 2] =~ /^%/u and not $raw_lines[$template_line - 2] =~ /[;{("']/u) { } |
|
178
|
44 |
0 |
defined $str ? : |
|
201
|
10 |
417 |
if ($skip_next) |
|
209
|
0 |
417 |
if ($skip_next_newline and $curr_char eq "\n") |
|
214
|
10 |
407 |
if ($curr_char eq "\n" and $prev_char ne "\n") |
|
218
|
10 |
0 |
if ($string_open) |
|
229
|
0 |
407 |
if ($curr_char eq "\n" and $prev_char eq "\n") |
|
235
|
0 |
0 |
if ($curr_char eq "-" and $next_char eq "%" and $prev_char eq ' ' || $prev_char eq "\n" and $chars[$current_char_idx + 2] eq ">") |
|
247
|
0 |
24 |
if (not $code_block and $prev_char eq "\n" || $current_char_idx == 0 and $curr_char eq "%" and $next_char eq " ") |
|
261
|
6 |
10 |
if ($prev_char eq "<" and $curr_char eq "%" and $next_char eq ' ' || $next_char eq "\n") |
|
266
|
6 |
0 |
if ($string_open) |
|
277
|
16 |
100 |
if ($code_block and $code_block_output || $prev_char eq ' ' || $prev_char eq "\n" || $prev_char eq '-' and $curr_char eq "%" and $next_char eq ">") |
|
288
|
10 |
6 |
if ($code_block_output) |
|
300
|
10 |
0 |
if ($prev_char eq "<" and $curr_char eq "%" and $next_char eq "=") |
|
304
|
10 |
0 |
if ($string_open) |
|
315
|
150 |
225 |
if ($code_line or $code_block) |
|
320
|
24 |
201 |
unless ($string_open) |
|
326
|
16 |
209 |
if ($curr_char eq "<" and $next_char eq "%") |
|
331
|
16 |
193 |
if ($curr_char eq ">" and $prev_char eq "%") |
|
336
|
0 |
193 |
if ($curr_char eq "%" and $prev_char eq "%") |
|
340
|
2 |
191 |
$curr_char =~ /[{}]/u ? : |
|
344
|
14 |
0 |
if ($string_open) |
|
355
|
9 |
0 |
if (exists $t_vars->{$var}) { } |