Branch Coverage

lib/jacode.pl
Criterion Covered Total %
branch 207 360 57.5


line true false branch
736 0 916 if ($h2z ne qq[! !# \$ !" % !& " !V # !W\n^ !+ _ !, 0 !<\n' %! ( %# ) %% * %' + %)\n, %c - %e . %g / %C\n1 %" 2 %\$ 3 %& 4 %( 5 %*\n6 %+ 7 %- 8 %/ 9 %1 : %3\n6^ %, 7^ %. 8^ %0 9^ %2 :^ %4\n; %5 < %7 = %9 > %; ? %=\n;^ %6 <^ %8 =^ %: >^ %< ?^ %>\n\@ %? A %A B %D C %F D %H\n\@^ %\@ A^ %B B^ %E C^ %G D^ %I\nE %J F %K G %L H %M I %N\nJ %O K %R L %U M %X N %[\nJ^ %P K^ %S L^ %V M^ %Y N^ %\\\nJ_ %Q K_ %T L_ %W M_ %Z N_ %]\nO %^ P %_ Q %` R %a S %b\nT %d U %f V %h\nW %i X %j Y %k Z %l [ %m\n\\ %o ] %s & %r 3^ %t\n])
761 0 916 if (scalar keys %h2z != 178)
766 0 916 if (scalar keys %z2h != scalar keys %h2z)
1392 916 0 if ($support_jcode_package_too)
1471 0 0 if defined $esc_0208{$esc_0208}
1474 0 0 if length $esc_asc == 1
1484 0 0 if (/($re_esc_jis0208)/o)
1487 0 0 if (/($re_esc_asc)/o)
1501 0 0 if (not $s =~ /[\e\200-\377]/) { }
0 0 elsif ($s =~ /$re_esc_jp|$re_esc_asc|$re_esc_kana/o) { }
0 0 elsif ($s =~ /$re_bin/o) { }
1531 0 0 wantarray ? :
1556 0 0 if (not $s =~ /[\e\x80-\xff]/) { }
0 0 elsif ($s =~ /$re_esc_jp|$re_esc_asc|$re_esc_kana/o) { }
0 0 elsif ($s =~ /$re_bin/o) { }
1594 0 0 if ($sjis > $euc) { }
0 0 elsif ($sjis == $euc) { }
1595 0 0 if ($sjis > $utf8) { }
0 0 elsif ($sjis == $utf8) { }
1601 0 0 if ($s =~ /^($re_utf8_c|$re_ascii)+$/o) { }
0 0 elsif ($s =~ /^($re_sjis_c|$re_sjis_ank)+$/o) { }
0 0 elsif (length $s >= 30 and $matched >= 15) { }
1620 0 0 if ($sjis > $utf8) { }
0 0 elsif ($sjis == $utf8) { }
1656 0 0 if ($s =~ /[\x80-\x8d\x90-\xa0]/) { }
0 0 elsif ($s =~ /\x8e[^\xa1-\xdf]/) { }
0 0 elsif ($s =~ /\x8f[^\xa1-\xfe]/) { }
0 0 elsif ($s =~ /\x8f[\xa1-\xfe][^\xa1-\xfe]/) { }
0 0 elsif ($s =~ /(^|[^\x81-\x9f\xa1-\xdf\xe0-\xfc])[\xa1-\xdf]([\xa1-\xdf][\xa1-\xdf])*([^\xa1-\xdf]|$)/) { }
0 0 elsif ($s =~ /^([\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc]|[\xa1-\xdf]|[\x00-\x7f])*$/) { }
1682 0 0 if (not $s =~ /^([\xa1-\xfe][\xa1-\xfe]|\x8e[\xa1-\xdf]|\x8f[\xa1-\xfe][\xa1-\xfe]|[\x00-\x7f])*$/) { }
1698 0 0 if ($s =~ /^($re_utf8_c|$re_ascii)+$/o) { }
0 0 elsif ($s =~ /^($re_sjis_c|$re_sjis_ank)+$/o) { }
0 0 elsif (length $s >= 30 and $matched >= 15) { }
1717 0 0 if ($euc > $utf8) { }
0 0 elsif ($euc == $utf8) { }
1723 0 0 if (length $s >= 30 and $matched >= 15) { }
1737 0 0 wantarray ? :
1745 0 840146 unless $INPUT_encoding = $INPUT_encoding || &getcode(*s)
1746 0 840146 if $INPUT_encoding eq 'binary'
1747 0 840146 unless $OUTPUT_encoding
1748 0 840146 if $OUTPUT_encoding eq 'noconv'
1750 180528 659618 if ($INPUT_encoding eq 'utf8')
1755 180528 0 if ($] >= 5.008)
1764 840146 0 if ($convf{join $;, $INPUT_encoding, $OUTPUT_encoding}) { }
1769 0 0 unless ($@)
1774 0 840146 wantarray ? :
1813 45904 22952 if $option
1823 720 68058 if ($s =~ /^$re_ascii/o) { }
430 67628 elsif ($s =~ /^$re_sjis_kana/o) { }
1843 32016 16008 if $option
1853 430 47516 if ($s =~ tr/\216//d) { }
0 47516 elsif ($s =~ tr/\217//d) { }
720 46796 elsif ($s =~ /^$re_ascii/) { }
1878 32016 16008 if $option
1887 48744 47226 if ($esc =~ /^$re_esc_asc/o) { }
456 46770 elsif ($esc =~ /^$re_esc_kana/o) { }
0 46770 elsif ($esc =~ /^$re_esc_jis0212/o) { }
1909 32016 16008 if $option
1942 48744 47226 if ($esc =~ /^$re_esc_asc/o) { }
456 46770 elsif ($esc =~ /^$re_esc_kana/o) { }
0 46770 elsif ($esc =~ /^$re_esc_jis0212/o) { }
1963 45904 22952 if $option
1973 0 223546 if ($code =~ /^$re_ascii/) { }
104 223442 elsif ($s2e{$code}) { }
46140 177302 elsif ($code gt "\352\244") { }
1983 378 176924 if (161 <= $c1 and $c1 <= 223) { }
89588 87336 elsif ($Ken_Lunde_CJKV_AppA_sjis2euc2nd_a{$c2}) { }
87336 0 elsif ($Ken_Lunde_CJKV_AppA_sjis2euc2nd_b{$c2}) { }
0 0 elsif (159 <= $c2) { }
2002 0 0 $c1 >= 224 ? :
2006 0 0 $c1 >= 224 ? :
2010 177302 0 if ($cache) { }
2024 32016 16008 if $option
2034 0 103096 if ($code =~ /^$re_ascii/) { }
126 102970 elsif ($e2s{$code}) { }
482 102488 elsif ($c1 == 142) { }
0 102488 elsif ($c1 == 143) { }
102488 0 elsif ($Ken_Lunde_CJKV_AppA_euc2sjis1st{$c1}) { }
0 0 elsif ($c1 % 2) { }
2048 56168 46320 if ($c1 & 1) { }
2063 0 0 $c1 < 223 ? :
2067 0 0 $c1 < 223 ? :
2071 102488 0 if ($cache) { }
2084 30088 15044 if $option
2094 720 44334 if ($u =~ /^$re_ascii/o) { }
430 43904 elsif ($u =~ /^$re_utf8_kana/o) { }
2098 6 424 unless %u2k
2115 30088 15044 if $option
2124 482 43904 if ($u =~ /^$re_utf8_kana/o) { }
2125 6 476 unless %u2k
2129 43904 0 unless $u2e{$1}
2137 87808 0 if ($cache) { }
2144 0 0 unless $s2e{$u2s{$code} or &u2s($code)}
2153 30088 15044 if $option
2163 144 132050 unless %utf82sjis_1
2165 104 132090 if ($u2s{$code}) { }
7128 124962 elsif (defined $JP170559{$utf8}) { }
63942 61020 elsif (defined $utf82sjis_1{$utf8}) { }
61020 0 elsif (defined $utf82sjis_2{$utf8}) { }
2169 7128 0 if ($cache) { }
2177 63942 0 if ($cache) { }
2185 61020 0 if ($cache) { }
2202 32016 16008 if $option
2211 48744 47226 if ($esc =~ /^$re_esc_asc/o) { }
456 46770 elsif ($esc =~ /^$re_esc_kana/o) { }
0 46770 elsif ($esc =~ /^$re_esc_jis0212/o) { }
2214 6 450 unless %k2u
2233 32016 16008 if $option
2242 0 47278 if ($s =~ /^$re_euc_0212/o) { }
482 46796 elsif ($s =~ /^$re_euc_kana/o) { }
2246 4 478 unless %k2u
2250 46670 126 unless $e2u{$1}
2259 47120 46320 if ($c1 % 2) { }
2260 34712 12408 $c1 < 223 ? :
2264 34968 11352 $c1 < 223 ? :
2267 102 93338 unless %sjis2utf8_1
2269 42624 50816 if (defined $sjis2utf8_1{$sjis}) { }
40680 10136 elsif (defined $sjis2utf8_2{$sjis}) { }
2270 42624 0 if ($cache) { }
2278 40680 0 if ($cache) { }
2295 45904 22954 if $option
2305 74 68042 unless %k2u
2306 74 68042 unless %sjis2utf8_1
2308 0 68116 if ($s2u{$code}) { }
482 67634 elsif ($k2u{$code}) { }
21386 46248 elsif (defined $sjis2utf8_1{$sjis}) { }
24912 21336 elsif (defined $sjis2utf8_2{$sjis}) { }
2315 21386 0 if ($cache) { }
2323 24912 0 if ($cache) { }
2343 144072 0 if (defined $option)
2344 64032 80040 if ($option =~ /z/) { }
64032 16008 elsif ($option =~ /h/) { }
2358 206568 0 if (defined $option)
2359 91808 114760 if ($option =~ /z/) { }
91808 22952 elsif ($option =~ /h/) { }
2373 144072 0 if (defined $option)
2374 64032 80040 if ($option =~ /z/) { }
64032 16008 elsif ($option =~ /h/) { }
2388 135396 0 if (defined $option)
2389 60176 75220 if ($option =~ /z/) { }
60176 15044 elsif ($option =~ /h/) { }
2435 504 63528 if ($s =~ s/$re_esc_kana([^\e]*)/$esc_0208 . &_h2z_jis($1);/ego)
2458 0 504 defined $3 ? :
2468 504 0 $h2z{$3} ? :
504 90240 unless $1
2476 64 60112 unless %h2z_utf8
2478 504 58608 $h2z_utf8{$1} ? :
2503 61648 816 unless $s =~ /^%/ or $s =~ /^![\#\"&VW+,<]/
2513 72 63960 unless %z2h_euc
2515 712 62256 $z2h_euc{$1} ? :
2523 96 91712 unless %z2h_sjis
2524 712 89528 $z2h_sjis{$1} ? :
2531 64 60112 unless %z2h_utf8
2532 712 58400 $z2h_utf8{$1} ? :
2549 6408 6408 if $s =~ s/([\xa1-\xdf])/\216$1/g
2557 8544 8544 if $s =~ /[\x80-\xff]/
2659 0 64 if (%h2z_utf8) { }
2661 0 0 if (scalar keys %z2h_utf8 != scalar keys %h2z_utf8)
2675 0 64 if (%z2h_utf8) { }
2677 0 0 if (scalar keys %h2z_utf8 != scalar keys %z2h_utf8)
6352 0 320 if (scalar keys %sjis2utf8_1 != 3635)
10513 0 320 if (scalar keys %sjis2utf8_2 != 4152)
10520 144 0 unless %sjis2utf8_1
10928 0 144 if (scalar keys %JP170559 != 396)
11005 0 84 if (%u2k) { }
11007 0 0 if (scalar keys %k2u != scalar keys %u2k)
11021 0 12 if (%k2u) { }
11023 0 0 if (scalar keys %u2k != scalar keys %k2u)
11073 0 2 if $s =~ /$re_esc_jp|$re_esc_asc|$re_esc_kana/o
11074 0 2 if $to =~ /$re_esc_jp|$re_esc_asc|$re_esc_kana/o
11076 0 0 if (not defined $prev_from or $from ne $prev_from or $to ne $prev_to or $option ne $prev_opt)
11087 134 0 defined $table{$1} && ++$n ? :
11090 0 2 if $jis
11099 0 2 if $to =~ /$re_esc_jp|$re_esc_asc|$re_esc_kana/o
11100 0 2 if $from =~ /$re_esc_jp|$re_esc_asc|$re_esc_kana/o
11108 0 0 $option =~ /d/ ? :
0 2 if @to < @from
11118 6 0 if ($c1 <= $c2)
11130 6 0 if ($c1 == $c3 and $c2 <= $c4)