Branch Coverage

blib/lib/Encode/EUCJPASCII.pm

Criterion	Covered	Total	%
branch	6	30	20.0

line	true	false	branch
47	0	8	if ($chk)
48	0	0	if $str =~ s/([^\x00-\x7f].*)$//os
59	1	2	$s =~ /^\e/ ? :
64	0	52	unless $swap1978{$1}
68	0	8	if $chk
76	0	8	if $chk
102	0	0	unless $esc
	0	0	unless ($chunk)
104	0	0	if ($esc and not $esc_asc and not $esc_0208_1978 and not $esc_0201) { }
	0	0	elsif ($esc_0208_1978) { }
	0	0	elsif ($esc_0201) { }
	0	0	elsif ((my $npos = index($chunk, $trm)) >= 0) { }
106	0	0	if ($esc_kana) { }
	0	0	elsif ($esc_0212) { }
115	0	0	unless $swap1978{$1}