Branch Coverage

blib/lib/Text/Format/Screenplay.pm
Criterion Covered Total %
branch 55 72 76.3


line true false branch
58 0 17 if $lines[$i] =~ /^[\s\t\n\r]*$/
59 0 17 if $lines[$i] =~ /^[\s\t\n\r]*\#/
65 0 52 if $lines[$j] =~ /^[\s\t\n\r]*\#/
66 16 36 if $lines[$j] =~ /^[\s\t\n\r]*$/
73 4 13 unless $post
75 1 16 if ($pre eq 'title:') { }
1 15 elsif ($pre eq 'author:') { }
1 14 elsif ($pre eq 'contact:') { }
1 13 elsif ($pre eq 'draft:') { }
1 12 elsif ($pre eq 'date:') { }
3 9 elsif ($pre eq ':') { }
1 8 elsif ($pre eq '>') { }
1 7 elsif ($pre eq '~') { }
2 5 elsif ($pre =~ /^.{1,20}\:$/) { }
150 2 10 unless ($type =~ /^[stcd]$/)
154 3 9 if ($type eq 's') { }
2 7 elsif ($type eq 't' or $type eq 'c') { }
5 2 elsif ($type eq 'd') { }
161 2 0 unless $till == 60
165 5 0 unless $till == 60
169 0 2 if $DOUBLE_DIALOG_LINES
173 0 12 if ($till > 60)
182 3 9 if ($type eq 's') { }
1 8 elsif ($type eq 't') { }
1 7 elsif ($type eq 'c') { }
5 2 elsif ($type eq 'd') { }
183 0 3 if ($SHOW_SCENE_NUMBERS)
192 1 0 unless $line == 60
195 1 0 unless $line == 60
198 3 2 if ($e + 1 < scalar @{$sp;} and $$sp[$e + 1][0] eq 't' || $$sp[$e + 1][0] eq 'c' || $$sp[$e + 1][0] eq 's') { }
201 3 0 unless $line == 60
203 2 0 unless $line == 60
208 0 2 if ($DOUBLE_DIALOG_LINES)
211 2 0 if ($e + 1 < scalar @{$sp;} and not $$sp[$e + 1][0] =~ /^stcd$/) { }
212 2 0 unless $line == 60
214 0 0 unless $line == 60