| line |
true |
false |
branch |
|
121
|
0 |
0 |
unless open my $roget, '<', $filename |
|
134
|
0 |
0 |
unless $line |
|
135
|
0 |
0 |
if $line =~ /^#/ |
|
137
|
0 |
0 |
if ($line =~ /^\s*<--/) |
|
138
|
0 |
0 |
if ($line =~ /-->$/) |
|
139
|
0 |
0 |
if $in_longcomment |
|
141
|
0 |
0 |
if ($line =~ /^%/) |
|
145
|
0 |
0 |
if $in_newheader |
|
151
|
0 |
0 |
unless defined $peeked_line |
|
153
|
0 |
0 |
if ($peeked_line and not $peeked_line =~ /^\s{4}/ and not $peeked_line =~ /^(?:#|%|<--)/) |
|
156
|
0 |
0 |
unless substr($line, -1, 1) eq '-' |
|
159
|
0 |
0 |
if ($line =~ /[^,]+,[^.]+\.\s{4}/) |
|
167
|
0 |
0 |
if $sec |
|
169
|
0 |
0 |
if ($sec) { } |
|
179
|
0 |
0 |
unless $section{$sec}{'major'} |
|
212
|
0 |
0 |
if (my($type) = $$subsection{'text'} =~ /^$types\./) { } |
|
|
0 |
0 |
elsif ($previous_subsection) { } |
|
230
|
0 |
0 |
if ($$_{'text'} =~ s/\[obs3\]//) |
|
233
|
0 |
0 |
if ($$_{'text'} =~ s/|!//) |
|
236
|
0 |
0 |
if ($$_{'text'} =~ s/|//) |