Branch Coverage

blib/lib/Parse/GutenbergRoget.pm
Criterion Covered Total %
branch 0 40 0.0


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