| line |
true |
false |
branch |
|
31
|
0 |
7 |
unless (eval $perl) |
|
42
|
10 |
0 |
$line ? : |
|
43
|
10 |
0 |
if (ref $in eq "SCALAR") |
|
45
|
0 |
10 |
if utf8::is_utf8($tmp) |
|
47
|
0 |
10 |
unless open $in, "<", $tmp |
|
48
|
0 |
10 |
unless defined $in |
|
57
|
10 |
0 |
if ($cur_tpl =~ /\S/u) |
|
64
|
0 |
44 |
if (/^#!/u) { } |
|
|
22 |
22 |
elsif (/^##(?!#)/u) { } |
|
|
0 |
22 |
elsif (/^(.*?) ## ?((?:if|unless) .*)/u) { } |
|
67
|
4 |
18 |
if (defined $cur_tpl) { } |
|
|
9 |
9 |
elsif (not defined $perl) { } |
|
80
|
0 |
0 |
if defined $cur_tpl |
|
85
|
0 |
0 |
unless $pl =~ /;\s*$/u |
|
89
|
10 |
12 |
unless (defined $cur_tpl) |
|
96
|
6 |
4 |
if defined $cur_tpl |
|
105
|
1 |
21 |
if ($pl =~ /\b sub \s* (\w+) \s* \(/ux) |
|
109
|
1 |
0 |
if ($pos == -1) |
|
114
|
0 |
22 |
if ($pl =~ /\b define \s* (\w+) (\s*) \(/ux) |
|
130
|
20 |
8 |
if (defined $s->{'eval'}) |
|
132
|
4 |
16 |
if (defined $cache{$s->{'eval'}}) |
|
137
|
0 |
16 |
$s->{'eval'} =~ /self|output/u ? : |
|
138
|
4 |
12 |
if ($s->{'line'} == $cur_line) { } |
|
|
3 |
9 |
elsif ($s->{'line'} == $cur_line + 1) { } |
|
155
|
0 |
12 |
unless substr($text, -1) eq "\n" |
|
156
|
0 |
12 |
if ($text =~ /^# line (\d+) "([^"]+)"/u) |
|
193
|
1 |
23 |
if ($expr eq '$trim_comma') { } |
|
|
6 |
17 |
elsif ($expr =~ /^ \$\{\{ (.*) \}\} $/ux) { } |
|
213
|
0 |
12 |
unless pos $_ == length $text |
|
229
|
5 |
0 |
if ($adjacent[-1][-1]{'line'} + 1 == $lines->[$_]{'line'}) { } |
|
241
|
4 |
0 |
if (substr($text, $linestart, $_->{'pos'} - $linestart) =~ /\S/u) |
|
246
|
0 |
4 |
unless $has_left |
|
254
|
0 |
38 |
unless $CodeGen::Cpppp::a->{'pos'} <=> $CodeGen::Cpppp::b->{'pos'} |
|
269
|
7 |
0 |
if ($_ eq '-setup') { } |