Branch Coverage

blib/lib/Exception/SEH/Parser.pm

Criterion	Covered	Total	%
branch	9	14	64.2

line	true	false	branch
34	33	0	if (EVAL() > 0) { }
49	132	0	if (my $len = Devel::Declare::toke_scan_word($$self{'offset'}, 1))
59	306	46	if (my $len = Devel::Declare::toke_scan_word($$self{'offset'}, 1))
88	66	0	if (substr($linestr, $$self{'offset'}, 1) eq '(')
94	0	66	if ($length < 0 or $$self{'offset'} + $length > length $linestr or $$self{'offset'} < 0)
131	0	1066	if ($$self{'offset'} > length $linestr or $$self{'offset'} < 0)
149	220	10	if ($self->get_symbols(1) eq '{') { }