| line |
true |
false |
branch |
|
169
|
0 |
922 |
if $] < "5.006" |
|
567
|
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") |
|
592
|
0 |
922 |
if (scalar keys %h2z != 178) |
|
597
|
0 |
922 |
if (scalar keys %z2h != scalar keys %h2z) |
|
1269
|
922 |
0 |
if ($support_jcode_package_too) |
|
1348
|
0 |
0 |
if defined $esc_0208{$esc_0208} |
|
1351
|
0 |
0 |
if length $esc_asc == 1 |
|
1361
|
0 |
0 |
if (/($re_esc_jis0208)/o) |
|
1364
|
0 |
0 |
if (/($re_esc_asc)/o) |
|
1382
|
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) { } |
|
1412
|
0 |
0 |
if (wantarray) { } |
|
1449
|
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) { } |
|
1464
|
1 |
127 |
if ($s =~ /\x1b/) { } |
|
|
63 |
64 |
elsif ($s =~ /$re_sjis_ank/o) { } |
|
1486
|
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) { } |
|
1599
|
0 |
44 |
if (/[\xfd-\xff]/) |
|
1606
|
0 |
15 |
if (/[\x80-\x8d\x90-\xa0\xff]/ or /[\x8e][^\xa1-\xdf]/ or /[\x8f]([^\xa1-\xfe]|.[^\xa1-\xfe])/) |
|
1615
|
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])/) |
|
1663
|
0 |
137 |
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}))) |
|
1669
|
11 |
33 |
if ($encoding eq "sjis") |
|
1670
|
1 |
10 |
if (length $parsee{'sjis'} == length $parsee{'euc'}) |
|
1673
|
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}/) { } |
|
1688
|
0 |
65881 |
wantarray ? : |
|
1709
|
14 |
132 |
if ($encoding eq 'sjis') { } |
|
|
45 |
87 |
elsif ($encoding eq 'euc') { } |
|
|
38 |
49 |
elsif ($encoding eq 'utf8') { } |
|
|
49 |
0 |
elsif ($encoding eq 'binary') { } |
|
1778
|
0 |
840146 |
unless $INPUT_encoding = $INPUT_encoding || &getcode(*s) |
|
1779
|
0 |
840146 |
if $INPUT_encoding eq "binary" |
|
1780
|
0 |
840146 |
unless $OUTPUT_encoding |
|
1781
|
0 |
840146 |
if $OUTPUT_encoding eq "noconv" |
|
1783
|
180528 |
659618 |
if ($INPUT_encoding eq "utf8") |
|
1788
|
180528 |
0 |
if ($] >= "5.008") |
|
1797
|
840146 |
0 |
if ($convf{join $;, $INPUT_encoding, $OUTPUT_encoding}) { } |
|
1802
|
0 |
0 |
unless ($@) |
|
1807
|
0 |
840146 |
if (wantarray) { } |
|
1853
|
45904 |
22952 |
if $option |
|
1869
|
720 |
68058 |
if ($s =~ /^$re_ascii/o) { } |
|
|
430 |
67628 |
elsif ($s =~ /^$re_sjis_kana/o) { } |
|
1889
|
32016 |
16008 |
if $option |
|
1906
|
430 |
47516 |
if ($s =~ tr/\216//d) { } |
|
|
0 |
47516 |
elsif ($s =~ tr/\217//d) { } |
|
|
720 |
46796 |
elsif ($s =~ /^$re_ascii/) { } |
|
1931
|
32016 |
16008 |
if $option |
|
1947
|
48744 |
47226 |
if ($esc =~ /^$re_esc_asc/o) { } |
|
|
456 |
46770 |
elsif ($esc =~ /^$re_esc_kana/o) { } |
|
|
0 |
46770 |
elsif ($esc =~ /^$re_esc_jis0212/o) { } |
|
1969
|
32016 |
16008 |
if $option |
|
2010
|
48744 |
47226 |
if ($esc =~ /^$re_esc_asc/o) { } |
|
|
456 |
46770 |
elsif ($esc =~ /^$re_esc_kana/o) { } |
|
|
0 |
46770 |
elsif ($esc =~ /^$re_esc_jis0212/o) { } |
|
2031
|
45904 |
22952 |
if $option |
|
2045
|
0 |
223546 |
if ($code =~ /^$re_ascii/) { } |
|
|
104 |
223442 |
elsif ($s2e{$code}) { } |
|
|
46140 |
177302 |
elsif ($code gt "\352\244") { } |
|
2055
|
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}) { } |
|
2067
|
177302 |
0 |
if ($cache) { } |
|
2081
|
32016 |
16008 |
if $option |
|
2096
|
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}) { } |
|
2109
|
56168 |
46320 |
if ($c1 & 1) { } |
|
2117
|
102488 |
0 |
if ($cache) { } |
|
2131
|
30088 |
15044 |
if $option |
|
2147
|
720 |
44334 |
if ($u =~ /^$re_ascii/o) { } |
|
|
430 |
43904 |
elsif ($u =~ /^$re_utf8_kana/o) { } |
|
2151
|
6 |
424 |
unless %u2k |
|
2172
|
30088 |
15044 |
if $option |
|
2185
|
482 |
43904 |
if ($u =~ /^$re_utf8_kana/o) { } |
|
2186
|
6 |
476 |
unless %u2k |
|
2190
|
43904 |
0 |
unless $u2e{$1} |
|
2202
|
87808 |
0 |
if ($cache) { } |
|
2209
|
0 |
0 |
unless $s2e{$u2s{$code} or &u2s($code)} |
|
2222
|
30088 |
15044 |
if $option |
|
2237
|
144 |
132050 |
unless %utf82sjis_1 |
|
2239
|
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}) { } |
|
2243
|
7128 |
0 |
if ($cache) { } |
|
2251
|
63942 |
0 |
if ($cache) { } |
|
2259
|
61020 |
0 |
if ($cache) { } |
|
2276
|
32016 |
16008 |
if $option |
|
2292
|
48744 |
47226 |
if ($esc =~ /^$re_esc_asc/o) { } |
|
|
456 |
46770 |
elsif ($esc =~ /^$re_esc_kana/o) { } |
|
|
0 |
46770 |
elsif ($esc =~ /^$re_esc_jis0212/o) { } |
|
2295
|
6 |
450 |
unless %k2u |
|
2318
|
32016 |
16008 |
if $option |
|
2332
|
0 |
47278 |
if ($s =~ /^$re_euc_0212/o) { } |
|
|
482 |
46796 |
elsif ($s =~ /^$re_euc_kana/o) { } |
|
2336
|
4 |
478 |
unless %k2u |
|
2340
|
46670 |
126 |
unless $e2u{$1} |
|
2353
|
47120 |
46320 |
if ($c1 % 2) { } |
|
2354
|
34712 |
12408 |
$c1 < 223 ? : |
|
2358
|
34968 |
11352 |
$c1 < 223 ? : |
|
2361
|
102 |
93338 |
unless %sjis2utf8_1 |
|
2363
|
42624 |
50816 |
if (defined $sjis2utf8_1{$sjis}) { } |
|
|
40680 |
10136 |
elsif (defined $sjis2utf8_2{$sjis}) { } |
|
2364
|
42624 |
0 |
if ($cache) { } |
|
2372
|
40680 |
0 |
if ($cache) { } |
|
2393
|
45904 |
22954 |
if $option |
|
2408
|
74 |
68042 |
unless %k2u |
|
2409
|
74 |
68042 |
unless %sjis2utf8_1 |
|
2411
|
0 |
68116 |
if ($s2u{$code}) { } |
|
|
482 |
67634 |
elsif ($k2u{$code}) { } |
|
|
21386 |
46248 |
elsif (defined $sjis2utf8_1{$sjis}) { } |
|
|
24912 |
21336 |
elsif (defined $sjis2utf8_2{$sjis}) { } |
|
2418
|
21386 |
0 |
if ($cache) { } |
|
2426
|
24912 |
0 |
if ($cache) { } |
|
2454
|
144072 |
0 |
if (defined $option) |
|
2455
|
64032 |
80040 |
if ($option =~ /z/) { } |
|
|
64032 |
16008 |
elsif ($option =~ /h/) { } |
|
2471
|
206568 |
0 |
if (defined $option) |
|
2472
|
91808 |
114760 |
if ($option =~ /z/) { } |
|
|
91808 |
22952 |
elsif ($option =~ /h/) { } |
|
2488
|
144072 |
0 |
if (defined $option) |
|
2489
|
64032 |
80040 |
if ($option =~ /z/) { } |
|
|
64032 |
16008 |
elsif ($option =~ /h/) { } |
|
2505
|
135396 |
0 |
if (defined $option) |
|
2506
|
60176 |
75220 |
if ($option =~ /z/) { } |
|
|
60176 |
15044 |
elsif ($option =~ /h/) { } |
|
2561
|
504 |
63528 |
if ($s =~ s/$re_esc_kana([^\e]*)/$esc_0208 . &_h2z_jis($1);/ego) |
|
2590
|
0 |
504 |
defined $3 ? : |
|
2603
|
504 |
0 |
$h2z{$3} ? : |
|
|
504 |
90240 |
unless $1 |
|
2614
|
64 |
60112 |
unless %h2z_utf8 |
|
2616
|
504 |
58608 |
if ($h2z_utf8{$1}) { } |
|
2646
|
61648 |
816 |
unless $s =~ /^%/ or $s =~ /^![\#\"&VW+,<]/ |
|
2659
|
72 |
63960 |
unless %z2h_euc |
|
2661
|
712 |
62256 |
if ($z2h_euc{$1}) { } |
|
2672
|
96 |
91712 |
unless %z2h_sjis |
|
2673
|
712 |
89528 |
if ($z2h_sjis{$1}) { } |
|
2683
|
64 |
60112 |
unless %z2h_utf8 |
|
2684
|
712 |
58400 |
if ($z2h_utf8{$1}) { } |
|
2701
|
6408 |
6408 |
if $s =~ s/([\xa1-\xdf])/\216$1/g |
|
2709
|
8544 |
8544 |
if $s =~ /[\x80-\xff]/ |
|
2811
|
0 |
64 |
if (%h2z_utf8) { } |
|
2813
|
0 |
0 |
if (scalar keys %z2h_utf8 != scalar keys %h2z_utf8) |
|
2827
|
0 |
64 |
if (%z2h_utf8) { } |
|
2829
|
0 |
0 |
if (scalar keys %h2z_utf8 != scalar keys %z2h_utf8) |
|
6504
|
0 |
320 |
if (scalar keys %sjis2utf8_1 != 3635) |
|
10665
|
0 |
320 |
if (scalar keys %sjis2utf8_2 != 4152) |
|
10672
|
144 |
0 |
unless %sjis2utf8_1 |
|
11080
|
0 |
144 |
if (scalar keys %JP170559 != 396) |
|
11157
|
0 |
84 |
if (%u2k) { } |
|
11159
|
0 |
0 |
if (scalar keys %k2u != scalar keys %u2k) |
|
11173
|
0 |
12 |
if (%k2u) { } |
|
11175
|
0 |
0 |
if (scalar keys %u2k != scalar keys %k2u) |
|
11234
|
0 |
2 |
if $s =~ /$re_esc_jp|$re_esc_asc|$re_esc_kana/o |
|
11235
|
0 |
2 |
if $to =~ /$re_esc_jp|$re_esc_asc|$re_esc_kana/o |
|
11237
|
0 |
0 |
if (not defined $prev_from or $from ne $prev_from or $to ne $prev_to or $option ne $prev_opt) |
|
11248
|
134 |
0 |
if (defined $table{$1} and ++$n) { } |
|
11251
|
0 |
2 |
if $jis |
|
11264
|
0 |
2 |
if $to =~ /$re_esc_jp|$re_esc_asc|$re_esc_kana/o |
|
11265
|
0 |
2 |
if $from =~ /$re_esc_jp|$re_esc_asc|$re_esc_kana/o |
|
11273
|
0 |
0 |
$option =~ /d/ ? : |
|
|
0 |
2 |
if @to < @from |
|
11286
|
6 |
0 |
if ($c1 <= $c2) |
|
11301
|
6 |
0 |
if ($c1 == $c3 and $c2 <= $c4) |