Branch Coverage

blib/lib/Lingua/Shakespeare.pm
Criterion Covered Total %
branch 51 102 50.0


line true false branch
752 0 0 if ($yyerrflag < 3) { }
757 0 0 if ($yyn = $yysindex[$yyss[$yyssp]] and ($yyn += 256) >= 0 and $yyn <= $#yycheck and $yycheck[$yyn] == 256) { }
762 0 0 if $yydebug
772 0 0 if $yydebug
775 0 0 if $yyssp <= 0
783 0 0 if $yychar == 0
785 0 0 if ($yydebug)
788 0 0 if ($yychar <= 319)
789 0 0 unless ($yys)
803 0 6 if ($yys = $ENV{'YYDEBUG'})
805 0 0 if $yys =~ /^(\d)/
819 4961 4236 if $yyn = $yydefred[$yystate]
821 3980 256 if ($yychar < 0)
823 6 3974 if (($yychar = &yylex) < 0)
825 0 3980 if ($yydebug)
828 0 0 if ($yychar <= $#yyname)
829 0 0 unless ($yys)
834 3974 243 if ($yyn = $yysindex[$yystate] and ($yyn += $yychar) >= 0 and $yyn <= $#yycheck and $yycheck[$yyn] == $yychar)
838 0 3974 if $yydebug
844 0 3974 if $yyerrflag > 0
847 262 0 if ($yyn = $yyrindex[$yystate] and ($yyn += $yychar) >= 0 and $yyn <= $#yycheck and $yycheck[$yyn] == $yychar)
853 0 0 unless ($yyerrflag)
857 0 0 if &yy_err_recover
860 0 5223 if $yydebug
868 4894 329 if exists $yystate{$label}
870 6 0 unless $num_errors
2144 6 5217 if ($yystate == 0 and $yym == 0)
2147 0 6 if $yydebug
2153 0 6 if ($yychar < 0)
2155 0 0 if (($yychar = &yylex) < 0)
2157 0 0 if ($yydebug)
2160 0 0 if ($yychar <= $#yyname)
2161 0 0 unless ($yys)
2166 6 0 if $yychar == 0
2169 2713 2504 if ($yyn = $yygindex[$yym] and ($yyn += $yystate) >= 0 and $yyn <= $#yycheck and $yycheck[$yyn] == $yystate) { }
2177 0 5217 if $yydebug
2228 343 64 unless length $r and $r =~ /^M*(C[DM]|D?C{1,3}ID)?(X[LC]|L?X{1,3}|L)?(I[VX]|V?I{1,3}|V)?$/
2262 700 161 if push @token, /[-\w']+|[:,!\[.\?\]]/g
2270 689 3291 unless @token
2275 3572 402 if (defined $type)
2276 3293 279 unless ref $type
2280 11 410 unless @token
2282 35 386 unless my $next_type = $$type{lc $token[0]}
2284 244 142 unless ref $next_type
2288 30 5 if ($type = $$type{''})
2292 5 0 if @word == 1
2296 63 0 if ($yylval =~ /^(act|scene)$/i and @token || get_tokens() and roman($token[0]))
2302 1 343 if (roman($yylval))
2332 6 6 unless get_tokens()
2336 0 6 if $num_errors
2339 0 6 if $num_warnings