| line |
true |
false |
branch |
|
119
|
0 |
0 |
unless open my $roget, "<", $filename |
|
132
|
0 |
0 |
unless $line |
|
133
|
0 |
0 |
if $line =~ /^#/ |
|
135
|
0 |
0 |
if ($line =~ /^\s*<--/) |
|
136
|
0 |
0 |
if ($line =~ /-->$/) |
|
137
|
0 |
0 |
if $in_longcomment |
|
139
|
0 |
0 |
if ($line =~ /^%/) |
|
143
|
0 |
0 |
if $in_newheader |
|
149
|
0 |
0 |
unless defined $peeked_line |
|
151
|
0 |
0 |
if ($peeked_line and not $peeked_line =~ /^\s{4}/ and not $peeked_line =~ /^(?:#|%|<--)/) |
|
154
|
0 |
0 |
unless substr($line, -1, 1) eq "-" |
|
157
|
0 |
0 |
if ($line =~ /[^,]+,[^.]+\.\s{4}/) |
|
165
|
0 |
0 |
if $sec |
|
167
|
0 |
0 |
if ($sec) { } |
|
177
|
0 |
0 |
unless $section{$sec}{'major'} |
|
210
|
0 |
0 |
if (my($type) = $subsection->{'text'} =~ /^$types\./) { } |
|
|
0 |
0 |
elsif ($previous_subsection) { } |
|
228
|
0 |
0 |
if ($_->{'text'} =~ s/\[obs3\]//) |
|
231
|
0 |
0 |
if ($_->{'text'} =~ s/|!//) |
|
234
|
0 |
0 |
if ($_->{'text'} =~ s/|//) |