Branch Coverage

lib/jacode.pl
Criterion Covered Total %
branch 250 348 71.8


line true false branch
137 0 922 if $] < "5.006"
503 0 922 if ($h2z ne "! !# \$ !\" % !& \" !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")
528 0 922 if (scalar keys %h2z != 178)
533 0 922 if (scalar keys %z2h != scalar keys %h2z)
1164 922 0 if ($support_jcode_package_too)
1243 0 0 if defined $esc_0208{$esc_0208}
1246 0 0 if length $esc_asc == 1
1256 0 0 if (/($re_esc_jis0208)/o)
1259 0 0 if (/($re_esc_asc)/o)
1273 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) { }
1303 0 0 wantarray ? :
1328 16256 49625 if ($s =~ /^[\x00-\x1a\x1c-\x7f]*$/) { }
2560 47065 elsif ($s =~ /$re_bin/o) { }
128 46937 elsif (length $s == 1) { }
46869 68 elsif (length $s == 2) { }
24 44 elsif ($s =~ /$re_esc_jp|$re_esc_asc|$re_esc_kana/o) { }
1343 1 127 if ($s =~ /\x1b/) { }
63 64 elsif ($s =~ /$re_sjis_ank/o) { }
1365 4 46865 if ($s =~ /^\xc2[\xa7\xb1\xb6]$/ or $s =~ /^\xc3\x97$/) { }
487 46378 elsif ($s =~ /^\xb1[\xb3\xbf\xc0\xc4\xc6\xc7\xc9\xca\xd1\xd2\xd8\xd9\xdb]$/ or $s =~ /^\xb2[\xb5\xb6\xb8\xb9\xbb\xbc\xbd\xbe\xbf\xc1\xc2\xc3\xc4\xc5\xc6\xc7\xc8\xca\xcb\xcc\xce\xcf\xd0\xd6\xd9\xda\xdd]$/ or $s =~ /^\xb3[\xb2\xb9\xc6\xc8\xca\xce\xd0\xd1\xd8\xda\xdb]$/ or $s =~ /^\xb4[\xb1\xb2\xb3\xb4\xb6\xbb\xc0\xc4\xc5\xc6\xc9\xca\xd6\xd7\xd8\xda\xdb\xdd]$/ or $s =~ /^\xb5[\xb4\xb5\xbb\xc1\xc4\xc6\xc8\xd2\xd5\xd7\xd9\xdb\xdc\xdd]$/ or $s =~ /^\xb6[\xb2\xb5\xb6\xbb\xbd\xc1\xc6\xc8\xc9\xca\xcb\xcc\xd0\xd6\xd7\xd8\xda]$/ or $s =~ /^\xb7[\xb3\xb8\xbb\xbd\xbf\xc1\xc3\xc5\xc7\xc8\xc9\xca\xcf\xd0\xd1\xd2\xd7\xd9\xda\xdd\xde]$/ or $s =~ /^\xb8[\xb2\xb5\xb6\xb7\xb9\xba\xbb\xbd\xc0\xc2\xc4\xc5\xc6\xca\xcb\xcd\xce\xd7\xde]$/ or $s =~ /^\xb9[\xb6\xb9\xbb\xbd\xbe\xc0\xc1\xc6\xc9\xcd\xd3\xd4\xd6\xd7\xd8]$/ or $s =~ /^\xba[\xb4\xb8\xb9\xbb\xc2\xc6\xc7\xca\xcd\xd0\xd1\xd2\xd7\xd8\xd9\xda\xdc]$/ or $s =~ /^\xbb[\xb2\xb3\xb6\xba\xbb\xc2\xc4\xc8\xc9\xca\xcb\xcd\xce\xcf\xd0\xd1\xd2\xd4\xd5\xd6\xd7\xd8\xd9\xdc]$/ or $s =~ /^\xbc[\xb6\xba\xbc\xc1\xc2\xcc\xce\xd2\xd4\xd5\xd6\xda]$/ or $s =~ /^\xbd[\xb5\xb8\xbb\xbc\xbd\xc2\xc5\xc9\xcb\xd0\xd4\xd5]$/ or $s =~ /^\xbe[\xb1\xbd\xbe\xc3\xc4\xc6\xc8\xc9\xca\xcf\xd0\xda\xdc\xdd]$/ or $s =~ /^\xbf[\xb2\xb4\xb6\xb7\xb9\xbc\xbd\xbf\xc0\xc6\xc7\xc9\xca\xcc\xcd]$/ or $s =~ /^\xc0[\xb1\xb2\xb5\xb6\xb8\xb9\xba\xbc\xbd\xbe\xc1\xc4\xc5\xc7\xca\xce\xd0\xd1\xd5\xd6\xda\xdc\xde]$/ or $s =~ /^\xc1[\xb1\xb4\xc7\xc8\xcf\xd4\xdb]$/ or $s =~ /^\xc2[\xb2\xb3\xb4\xbc\xbe\xbf\xc0\xc7\xce\xd0\xd3\xd4\xd8\xd9]$/ or $s =~ /^\xc3[\xb1\xb5\xbb\xbc\xc2\xc6\xc7\xc8\xc9\xca\xcb\xcc\xcd\xce\xcf\xd1\xd3\xd7\xd9]$/ or $s =~ /^\xc4[\xb4\xb6\xb9\xba\xbb\xbe\xc5\xc9\xcb\xcc\xce\xd4\xd8]$/ or $s =~ /^\xc5[\xb4\xb5\xb7\xb8\xb9\xba\xbe\xc0\xc1\xc4\xc5\xcf\xd0\xd4\xd9\xda\xdc\xdd]$/ or $s =~ /^\xc6[\xb1\xb2\xb7\xbb\xbe\xc0\xc3\xc8\xc9\xcd\xcf\xd7]$/ or $s =~ /^\xc7[\xb3\xba\xbc\xbd\xbe\xc0\xc8\xc9\xcb\xcf\xd4\xd5\xd8\xdb\xdc]$/ or $s =~ /^\xc8[\xb1\xb4\xb5\xb7\xbd\xbe\xbf\xc4\xc7\xc8\xcc\xce\xd3\xd5\xd6\xdd]$/ or $s =~ /^\xc9[\xb1\xb4\xb8\xbc\xbd\xbe\xc1\xc2\xc5\xca\xcd\xd4\xd5\xd7\xd8\xd9\xdb\xdc\xdd]$/ or $s =~ /^\xca[\xb4\xb7\xb8\xb9\xbc\xbf\xc2\xc4\xc6\xcc\xd1\xd2\xd4\xd5\xd6\xd8\xd9\xdb\xdd]$/ or $s =~ /^\xcb[\xba\xbd\xbe\xc9\xcc\xcd\xd2\xdc]$/ or $s =~ /^\xcc[\xb1\xb2\xb4\xb5\xbc\xbe\xbf\xc0\xc2\xc4\xcc\xd1\xd3\xd4\xda\xdc]$/ or $s =~ /^\xcd[\xb4\xb5\xb7\xbc\xbd\xbe\xc0\xc4\xc6\xc9\xcb\xcd\xce\xd1\xd5\xd7\xdb]$/ or $s =~ /^\xce[\xb1\xb5\xb9\xbe\xc1\xc3\xc5\xc9\xcc\xcf\xd0\xd3\xd9\xdd]$/ or $s =~ /^\xcf[\xbf\xc0\xc2\xc3\xc8\xca]$/ or $s =~ /^\xd6\xbb$/ or $s =~ /^\xdc\xc6$/) { }
1494 44884 elsif ($s =~ /^[\xb1-\xdc][\xb1-\xdd]$/) { }
4710 40174 elsif ($s =~ /^[\xa1-\xdf][\xa1-\xfe]$/ or $s =~ /^\xe0[\xa5\xa8\xc4\xd0\xdd\xe1\xea\xf1\xfa]$/ or $s =~ /^\xe1[\xb4\xc6\xd6\xd7\xda\xdb\xdc\xe2\xe3\xe7\xfb]$/ or $s =~ /^\xe2[\xa2\xa4\xb2\xc1\xc3\xcb\xcc\xd4\xd6\xd7\xdb\xf9]$/ or $s =~ /^\xe3[\xaa\xab\xae\xb1\xb7\xd2\xd6\xde\xe0\xfe]$/ or $s =~ /^\xe4[\xa3\xb5\xb6\xc6]$/ or $s =~ /^\xe5[\xab\xb0\xba\xcc\xe0\xe1\xe2\xe3\xe7]$/ or $s =~ /^\xe6[\xab\xb7\xbd\xc6\xc7\xea\xf9\xfa\xfe]$/ or $s =~ /^\xe7[\xa5\xa7\xb4\xd0\xd3\xd6\xe7\xf5\xfd]$/ or $s =~ /^\xe8[\xa7\xba\xbc\xbd\xc4\xdf\xe7\xea]$/ or $s =~ /^\xe9[\xa1\xac\xae\xaf\xb2\xba\xda\xe1\xe6\xe7\xf0]$/ or $s =~ /^\xea[\xa4\xa6\xaf\xb5\xb8\xe3\xee\xf4\xf8]$/ or $s =~ /^[\xeb-\xec][\xa1-\xfe]$/ or $s =~ /^[\xef-\xf3][\xa1-\xfe]$/ or $s =~ /^\xf4[\xa1-\xa6]$/) { }
10546 29628 elsif ($s =~ /^$re_sjis_c$/o) { }
1478 0 44 if (/[\xfd-\xff]/)
1485 0 15 if (/[\x80-\x8d\x90-\xa0\xff]/ or /[\x8e][^\xa1-\xdf]/ or /[\x8f]([^\xa1-\xfe]|.[^\xa1-\xfe])/)
1494 4 29 if (/[\xc0\xc1\xf5-\xff]/ or /[\xc2-\xdf][^\x80-\xbf]/ or /[\xe0-\xef]([^\x80-\xbf]|.[^\x80-\xbf])/ or /[\xf0-\xf4]([^\x80-\xbf]|.[^\x80-\xbf]|..[^\x80-\xbf])/)
1542 0 159 unless length $parsee{$a} <=> length $parsee{$b} or &_count_ctype($a, substr($_, 0, length($_) - length($parsee{$a}))) <=> &_count_ctype($b, substr($_, 0, length($_) - length($parsee{$b})))
1548 11 33 if ($encoding eq "sjis")
1549 1 10 if (length $parsee{'sjis'} == length $parsee{'euc'})
1552 1 0 if (/(\x8e[\xb1-\xdd]){3}/) { }
0 0 elsif (/(\x8e[\xb1\xb2\xb3\xb4\xb6\xb9\xbb\xbd\xbe\xc1\xc2\xc3\xc4\xc6\xc7\xc8\xcd\xce\xd1\xd5\xd6\xd9\xda\xdb\xdc\xdd]){2}/) { }
1567 0 65881 wantarray ? :
1577 14 132 if ($encoding eq 'sjis') { }
45 87 elsif ($encoding eq 'euc') { }
38 49 elsif ($encoding eq 'utf8') { }
49 0 elsif ($encoding eq 'binary') { }
1634 0 840146 unless $INPUT_encoding = $INPUT_encoding || &getcode(*s)
1635 0 840146 if $INPUT_encoding eq "binary"
1636 0 840146 unless $OUTPUT_encoding
1637 0 840146 if $OUTPUT_encoding eq "noconv"
1639 180528 659618 if ($INPUT_encoding eq "utf8")
1644 180528 0 if ($] >= "5.008")
1653 840146 0 if ($convf{join $;, $INPUT_encoding, $OUTPUT_encoding}) { }
1658 0 0 unless ($@)
1663 0 840146 wantarray ? :
1702 45904 22952 if $option
1712 720 68058 if ($s =~ /^$re_ascii/o) { }
430 67628 elsif ($s =~ /^$re_sjis_kana/o) { }
1732 32016 16008 if $option
1742 430 47516 if ($s =~ tr/\216//d) { }
0 47516 elsif ($s =~ tr/\217//d) { }
720 46796 elsif ($s =~ /^$re_ascii/) { }
1767 32016 16008 if $option
1776 48744 47226 if ($esc =~ /^$re_esc_asc/o) { }
456 46770 elsif ($esc =~ /^$re_esc_kana/o) { }
0 46770 elsif ($esc =~ /^$re_esc_jis0212/o) { }
1798 32016 16008 if $option
1831 48744 47226 if ($esc =~ /^$re_esc_asc/o) { }
456 46770 elsif ($esc =~ /^$re_esc_kana/o) { }
0 46770 elsif ($esc =~ /^$re_esc_jis0212/o) { }
1852 45904 22952 if $option
1862 0 223546 if ($code =~ /^$re_ascii/) { }
104 223442 elsif ($s2e{$code}) { }
46140 177302 elsif ($code gt "\352\244") { }
1872 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}) { }
1884 177302 0 if ($cache) { }
1898 32016 16008 if $option
1908 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}) { }
1921 56168 46320 if ($c1 & 1) { }
1929 102488 0 if ($cache) { }
1943 30088 15044 if $option
1953 720 44334 if ($u =~ /^$re_ascii/o) { }
430 43904 elsif ($u =~ /^$re_utf8_kana/o) { }
1957 6 424 unless %u2k
1974 30088 15044 if $option
1983 482 43904 if ($u =~ /^$re_utf8_kana/o) { }
1984 6 476 unless %u2k
1988 43904 0 unless $u2e{$1}
1996 87808 0 if ($cache) { }
2003 0 0 unless $s2e{$u2s{$code} or &u2s($code)}
2012 30088 15044 if $option
2022 144 132050 unless %utf82sjis_1
2024 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}) { }
2028 7128 0 if ($cache) { }
2036 63942 0 if ($cache) { }
2044 61020 0 if ($cache) { }
2061 32016 16008 if $option
2070 48744 47226 if ($esc =~ /^$re_esc_asc/o) { }
456 46770 elsif ($esc =~ /^$re_esc_kana/o) { }
0 46770 elsif ($esc =~ /^$re_esc_jis0212/o) { }
2073 6 450 unless %k2u
2092 32016 16008 if $option
2101 0 47278 if ($s =~ /^$re_euc_0212/o) { }
482 46796 elsif ($s =~ /^$re_euc_kana/o) { }
2105 4 478 unless %k2u
2109 46670 126 unless $e2u{$1}
2118 47120 46320 if ($c1 % 2) { }
2119 34712 12408 $c1 < 223 ? :
2123 34968 11352 $c1 < 223 ? :
2126 102 93338 unless %sjis2utf8_1
2128 42624 50816 if (defined $sjis2utf8_1{$sjis}) { }
40680 10136 elsif (defined $sjis2utf8_2{$sjis}) { }
2129 42624 0 if ($cache) { }
2137 40680 0 if ($cache) { }
2154 45904 22954 if $option
2164 74 68042 unless %k2u
2165 74 68042 unless %sjis2utf8_1
2167 0 68116 if ($s2u{$code}) { }
482 67634 elsif ($k2u{$code}) { }
21386 46248 elsif (defined $sjis2utf8_1{$sjis}) { }
24912 21336 elsif (defined $sjis2utf8_2{$sjis}) { }
2174 21386 0 if ($cache) { }
2182 24912 0 if ($cache) { }
2202 144072 0 if (defined $option)
2203 64032 80040 if ($option =~ /z/) { }
64032 16008 elsif ($option =~ /h/) { }
2217 206568 0 if (defined $option)
2218 91808 114760 if ($option =~ /z/) { }
91808 22952 elsif ($option =~ /h/) { }
2232 144072 0 if (defined $option)
2233 64032 80040 if ($option =~ /z/) { }
64032 16008 elsif ($option =~ /h/) { }
2247 135396 0 if (defined $option)
2248 60176 75220 if ($option =~ /z/) { }
60176 15044 elsif ($option =~ /h/) { }
2294 504 63528 if ($s =~ s/$re_esc_kana([^\e]*)/$esc_0208 . &_h2z_jis($1);/ego)
2317 0 504 defined $3 ? :
2327 504 0 $h2z{$3} ? :
504 90240 unless $1
2335 64 60112 unless %h2z_utf8
2337 504 58608 $h2z_utf8{$1} ? :
2362 61648 816 unless $s =~ /^%/ or $s =~ /^![\#\"&VW+,<]/
2372 72 63960 unless %z2h_euc
2374 712 62256 $z2h_euc{$1} ? :
2382 96 91712 unless %z2h_sjis
2383 712 89528 $z2h_sjis{$1} ? :
2390 64 60112 unless %z2h_utf8
2391 712 58400 $z2h_utf8{$1} ? :
2408 6408 6408 if $s =~ s/([\xa1-\xdf])/\216$1/g
2416 8544 8544 if $s =~ /[\x80-\xff]/
2518 0 64 if (%h2z_utf8) { }
2520 0 0 if (scalar keys %z2h_utf8 != scalar keys %h2z_utf8)
2534 0 64 if (%z2h_utf8) { }
2536 0 0 if (scalar keys %h2z_utf8 != scalar keys %z2h_utf8)
6211 0 320 if (scalar keys %sjis2utf8_1 != 3635)
10372 0 320 if (scalar keys %sjis2utf8_2 != 4152)
10379 144 0 unless %sjis2utf8_1
10787 0 144 if (scalar keys %JP170559 != 396)
10864 0 84 if (%u2k) { }
10866 0 0 if (scalar keys %k2u != scalar keys %u2k)
10880 0 12 if (%k2u) { }
10882 0 0 if (scalar keys %u2k != scalar keys %k2u)
10932 0 2 if $s =~ /$re_esc_jp|$re_esc_asc|$re_esc_kana/o
10933 0 2 if $to =~ /$re_esc_jp|$re_esc_asc|$re_esc_kana/o
10935 0 0 if (not defined $prev_from or $from ne $prev_from or $to ne $prev_to or $option ne $prev_opt)
10946 134 0 defined $table{$1} && ++$n ? :
10949 0 2 if $jis
10958 0 2 if $to =~ /$re_esc_jp|$re_esc_asc|$re_esc_kana/o
10959 0 2 if $from =~ /$re_esc_jp|$re_esc_asc|$re_esc_kana/o
10967 0 0 $option =~ /d/ ? :
0 2 if @to < @from
10977 6 0 if ($c1 <= $c2)
10989 6 0 if ($c1 == $c3 and $c2 <= $c4)