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/|//) |