| line |
true |
false |
branch |
|
26
|
0 |
1 |
unless ($self->{'fn'} = eval $perl) |
|
43
|
4 |
0 |
$line ? : |
|
44
|
4 |
0 |
if (ref $in eq "SCALAR") |
|
46
|
0 |
4 |
if utf8::is_utf8($tmp) |
|
48
|
0 |
4 |
unless open $in, "<", $tmp |
|
49
|
0 |
4 |
unless defined $in |
|
58
|
0 |
16 |
if (/^#!/) { } |
|
|
7 |
9 |
elsif (/^##(?!#)/) { } |
|
|
0 |
9 |
elsif (/^(.*?) ## ?((?:if|unless) .*)/) { } |
|
61
|
2 |
5 |
if (defined $cur_tpl) |
|
65
|
3 |
4 |
unless (defined $perl) |
|
70
|
0 |
7 |
if ($pl =~ /sub \w+ \s* \( ( [^,)\n]* )/x) |
|
71
|
0 |
0 |
if ($1 ne "\$self") |
|
72
|
0 |
0 |
length $1 ? : |
|
79
|
0 |
0 |
if defined $cur_tpl |
|
84
|
0 |
0 |
unless $pl =~ /;\s*$/ |
|
88
|
3 |
6 |
unless (defined $cur_tpl) |
|
95
|
1 |
3 |
if defined $cur_tpl |
|
106
|
6 |
3 |
if ($s->{'len'}) |
|
108
|
0 |
6 |
if ($expr eq '$anticomma') { } |
|
114
|
2 |
4 |
if ($expr =~ /\$\{\{(.*)\}\}$/) |
|
130
|
0 |
5 |
unless substr($text, -1) eq "\n" |
|
131
|
0 |
5 |
if ($text =~ /^# line (\d+) "([^"]+)"/) |
|
173
|
0 |
5 |
unless pos $_ == length $text |
|
189
|
3 |
0 |
if ($adjacent[-1][-1]{'line'} + 1 == $lines->[$_]{'line'}) { } |
|
201
|
2 |
0 |
if (substr($text, $linestart, $_->{'pos'} - $linestart) =~ /\S/) |
|
206
|
0 |
2 |
unless $has_left |
|
228
|
9 |
12 |
if ($s->{'colgroup'}) { } |
|
234
|
12 |
0 |
if ($fn) |
|
251
|
3 |
6 |
if $l > $newcol |
|
261
|
9 |
0 |
if ($diff < 0) { } |
|
|
0 |
0 |
elsif ($diff > 0) { } |
|
269
|
9 |
18 |
if $_ > $group->[$i] |