Branch Coverage

blib/lib/Text/Scigen/scigen.pm
Criterion Covered Total %
branch 40 70 57.1


line true false branch
40 129 3850 if $line =~ /^#/
41 674 3176 unless $line =~ /\S/
48 3 3173 if ($name =~ /([^\+]*)\!$/)
55 1 3172 if ($name =~ /\.include$/)
59 0 1 if (defined $$rules{&file_name($file)}) { }
60 0 0 if ($debug > 0)
67 0 1 if ($debug > 0)
71 0 1 unless open my $inc_fh, '<:utf8', $path
77 124 3048 if ($#words == 0 and $words[0] eq '{') { }
80 124 1023 if ($line =~ /^}[\r\n]+$/) { }
87 0 124 unless ($end)
98 196 2976 if ($name =~ /([^\+]*)\+(\d+)$/)
101 0 196 if ($debug > 10)
111 1 1 if (defined $RE)
132 1 0 if ($pretty)
153 7 8 if ($$input =~ s/$RE//s)
175 0 1 if ($line =~ /\\section(\*?){(.*)}/) { }
0 1 elsif ($line =~ /(\\subsection){(.*)}/ or $line =~ /(\\slideheading){(.*)}/) { }
0 1 elsif ($line =~ /\\title{(.*)}/) { }
0 1 elsif ($line =~ /(.*) = {(.*)}\,/) { }
1 0 elsif ($line =~ /\S/) { }
218 0 1 unless ($newline =~ /\n$/)
230 1 0 unless (defined $text)
243 0 8 if ($start =~ /(.*)\+$/) { }
0 8 elsif ($start =~ /(.*)\#$/) { }
246 0 0 if (not defined $i) { }
256 0 0 if (not defined $i) { }
271 0 8 if ($debug >= 5)
281 3 4 if length $pre
282 7 0 if length $ex
284 3 5 if length $input
287 0 8 if (defined $ref)
291 0 0 if ($d eq $full_token)
296 0 0 if (not $repeat) { }
0 0 elsif ($count > 50) { }