| 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 |
49576 |
if ($s =~ /^[\x00-\x1a\x1c-\x7f]*$/) { } |
|
|
2560 |
47016 |
elsif ($s =~ /$re_bin/o) { } |
|
|
128 |
46888 |
elsif (length $s == 1) { } |
|
|
46848 |
40 |
elsif (length $s == 2) { } |
|
|
10 |
30 |
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 |
46844 |
if ($s =~ /^\xc2[\xa7\xb1\xb6]$/ or $s =~ /^\xc3\x97$/) { } |
|
|
424 |
46420 |
elsif ($s =~ /^\xb1[\xb3\xbf\xc4\xc6\xc7\xca\xd1\xd2\xd8\xdb]$/ or $s =~ /^\xb2[\xb5\xb6\xb9\xbb\xbc\xbd\xbe\xbf\xc1\xc3\xc4\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\xb3\xb4\xb6\xc0\xc4\xc5\xc6\xc9\xca\xd6\xd8\xda\xdb\xdd]$/ or $s =~ /^\xb5[\xb4\xbb\xc1\xc4\xc8\xd2\xd5\xd7\xd9\xdb\xdc]$/ or $s =~ /^\xb6[\xb2\xb5\xb6\xbb\xbd\xc1\xc8\xc9\xca\xcb\xcc\xd0\xd8\xda]$/ or $s =~ /^\xb7[\xb3\xb8\xbb\xbf\xc1\xc3\xc7\xc8\xca\xcf\xd0\xd1\xd2\xd7\xd9\xda\xdd]$/ or $s =~ /^\xb8[\xb5\xb6\xb7\xba\xbb\xbd\xc0\xc2\xc4\xc5\xc6\xca\xcb\xcd\xce]$/ or $s =~ /^\xb9[\xb6\xb9\xbb\xbd\xbe\xc1\xc6\xcd\xd3\xd4\xd6\xd8]$/ or $s =~ /^\xba[\xb4\xb8\xb9\xc2\xc6\xc7\xcd\xd0\xd1\xd2\xd7\xd9\xda\xdc]$/ or $s =~ /^\xbb[\xb2\xb3\xb6\xba\xbb\xc4\xc8\xc9\xca\xcb\xcd\xce\xcf\xd0\xd1\xd2\xd4\xd5\xd6\xd7\xd8\xd9\xdc]$/ or $s =~ /^\xbc[\xba\xbc\xc1\xc2\xcc\xce\xd2\xd4\xd5\xd6\xda]$/ or $s =~ /^\xbd[\xb5\xb8\xbb\xbc\xbd\xc2\xc5\xc9\xcb\xd0\xd5]$/ or $s =~ /^\xbe[\xbe\xc3\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]$/ or $s =~ /^\xc1[\xb1\xb4\xc7\xc8\xdb]$/ or $s =~ /^\xc2[\xb2\xb3\xb4\xbc\xbe\xbf\xc0\xc7\xce\xd0\xd3\xd4\xd8]$/ or $s =~ /^\xc3[\xb1\xb5\xbb\xbc\xc2\xc6\xc7\xc8\xca\xcb\xcc\xcd\xce\xcf\xd1\xd3\xd7\xd9]$/ or $s =~ /^\xc4[\xb4\xb6\xb9\xba\xbb\xbe\xc5\xc9\xcb\xcc]$/ or $s =~ /^\xc5[\xb4\xb5\xb7\xb8\xb9\xbe\xc0\xc1\xc4\xc5\xcf\xd0\xd4\xd9\xda\xdc\xdd]$/ or $s =~ /^\xc6[\xb1\xb2\xbb\xc0\xc3\xc8\xc9\xcd\xcf]$/ or $s =~ /^\xc7[\xb3\xba\xbc\xbd\xbe\xc0\xc8\xc9\xcb\xcf\xd4\xd5\xd8\xdb\xdc]$/ or $s =~ /^\xc8[\xb1\xb4\xbd\xbe\xbf\xc4\xc7\xc8\xcc\xce\xd3\xd5\xd6\xdd]$/ or $s =~ /^\xc9[\xb4\xb8\xbc\xbd\xbe\xc1\xc2\xca\xcd\xd4\xd5\xd7\xd8\xd9\xdb\xdc\xdd]$/ or $s =~ /^\xca[\xb4\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\xdc]$/ or $s =~ /^\xcc[\xb1\xb2\xb4\xb5\xbc\xbe\xbf\xc0\xc2\xc4\xcc\xd1\xd3\xda\xdc]$/ or $s =~ /^\xcd[\xb5\xb7\xbc\xbd\xbe\xc4\xc6\xc9\xcb\xcd\xce\xd1\xd5\xd7\xdb]$/ or $s =~ /^\xce[\xb1\xb9\xbe\xc1\xc5\xc9\xcc\xcf\xd3\xd9]$/ or $s =~ /^\xcf[\xbf\xc0\xc2\xc3\xc8]$/) { } |
|
|
1554 |
44866 |
elsif ($s =~ /^[\xb1-\xdc][\xb1-\xdd]$/) { } |
|
|
4706 |
40160 |
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]$/) { } |
|
|
10532 |
29628 |
elsif ($s =~ /^$re_sjis_c$/o) { } |
|
1475
|
0 |
30 |
if (/[\xfd-\xff]/) |
|
1482
|
0 |
12 |
if (/[\x80-\x8d\x90-\xa0\xff]/ or /[\x8e][^\xa1-\xdf]/ or /[\x8f]([^\xa1-\xfe]|.[^\xa1-\xfe])/) |
|
1491
|
4 |
15 |
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])/) |
|
1539
|
0 |
97 |
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}))) |
|
1545
|
11 |
19 |
if ($encoding eq "sjis") |
|
1546
|
1 |
10 |
if (length $parsee{'sjis'} == length $parsee{'euc'}) |
|
1549
|
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}/) { } |
|
1564
|
0 |
65832 |
wantarray ? : |
|
1574
|
8 |
98 |
if ($encoding eq 'sjis') { } |
|
|
31 |
67 |
elsif ($encoding eq 'euc') { } |
|
|
32 |
35 |
elsif ($encoding eq 'utf8') { } |
|
|
35 |
0 |
elsif ($encoding eq 'binary') { } |
|
1631
|
0 |
840146 |
unless $INPUT_encoding = $INPUT_encoding || &getcode(*s) |
|
1632
|
0 |
840146 |
if $INPUT_encoding eq "binary" |
|
1633
|
0 |
840146 |
unless $OUTPUT_encoding |
|
1634
|
0 |
840146 |
if $OUTPUT_encoding eq "noconv" |
|
1636
|
180528 |
659618 |
if ($INPUT_encoding eq "utf8") |
|
1641
|
180528 |
0 |
if ($] >= "5.008") |
|
1650
|
840146 |
0 |
if ($convf{join $;, $INPUT_encoding, $OUTPUT_encoding}) { } |
|
1655
|
0 |
0 |
unless ($@) |
|
1660
|
0 |
840146 |
wantarray ? : |
|
1699
|
45904 |
22952 |
if $option |
|
1709
|
720 |
68058 |
if ($s =~ /^$re_ascii/o) { } |
|
|
430 |
67628 |
elsif ($s =~ /^$re_sjis_kana/o) { } |
|
1729
|
32016 |
16008 |
if $option |
|
1739
|
430 |
47516 |
if ($s =~ tr/\216//d) { } |
|
|
0 |
47516 |
elsif ($s =~ tr/\217//d) { } |
|
|
720 |
46796 |
elsif ($s =~ /^$re_ascii/) { } |
|
1764
|
32016 |
16008 |
if $option |
|
1773
|
48744 |
47226 |
if ($esc =~ /^$re_esc_asc/o) { } |
|
|
456 |
46770 |
elsif ($esc =~ /^$re_esc_kana/o) { } |
|
|
0 |
46770 |
elsif ($esc =~ /^$re_esc_jis0212/o) { } |
|
1795
|
32016 |
16008 |
if $option |
|
1828
|
48744 |
47226 |
if ($esc =~ /^$re_esc_asc/o) { } |
|
|
456 |
46770 |
elsif ($esc =~ /^$re_esc_kana/o) { } |
|
|
0 |
46770 |
elsif ($esc =~ /^$re_esc_jis0212/o) { } |
|
1849
|
45904 |
22952 |
if $option |
|
1859
|
0 |
223546 |
if ($code =~ /^$re_ascii/) { } |
|
|
104 |
223442 |
elsif ($s2e{$code}) { } |
|
|
46140 |
177302 |
elsif ($code gt "\352\244") { } |
|
1869
|
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}) { } |
|
1881
|
177302 |
0 |
if ($cache) { } |
|
1895
|
32016 |
16008 |
if $option |
|
1905
|
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}) { } |
|
1918
|
56168 |
46320 |
if ($c1 & 1) { } |
|
1926
|
102488 |
0 |
if ($cache) { } |
|
1940
|
30088 |
15044 |
if $option |
|
1950
|
720 |
44334 |
if ($u =~ /^$re_ascii/o) { } |
|
|
430 |
43904 |
elsif ($u =~ /^$re_utf8_kana/o) { } |
|
1954
|
6 |
424 |
unless %u2k |
|
1971
|
30088 |
15044 |
if $option |
|
1980
|
482 |
43904 |
if ($u =~ /^$re_utf8_kana/o) { } |
|
1981
|
6 |
476 |
unless %u2k |
|
1985
|
43904 |
0 |
unless $u2e{$1} |
|
1993
|
87808 |
0 |
if ($cache) { } |
|
2000
|
0 |
0 |
unless $s2e{$u2s{$code} or &u2s($code)} |
|
2009
|
30088 |
15044 |
if $option |
|
2019
|
144 |
132050 |
unless %utf82sjis_1 |
|
2021
|
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}) { } |
|
2025
|
7128 |
0 |
if ($cache) { } |
|
2033
|
63942 |
0 |
if ($cache) { } |
|
2041
|
61020 |
0 |
if ($cache) { } |
|
2058
|
32016 |
16008 |
if $option |
|
2067
|
48744 |
47226 |
if ($esc =~ /^$re_esc_asc/o) { } |
|
|
456 |
46770 |
elsif ($esc =~ /^$re_esc_kana/o) { } |
|
|
0 |
46770 |
elsif ($esc =~ /^$re_esc_jis0212/o) { } |
|
2070
|
6 |
450 |
unless %k2u |
|
2089
|
32016 |
16008 |
if $option |
|
2098
|
0 |
47278 |
if ($s =~ /^$re_euc_0212/o) { } |
|
|
482 |
46796 |
elsif ($s =~ /^$re_euc_kana/o) { } |
|
2102
|
4 |
478 |
unless %k2u |
|
2106
|
46670 |
126 |
unless $e2u{$1} |
|
2115
|
47120 |
46320 |
if ($c1 % 2) { } |
|
2116
|
34712 |
12408 |
$c1 < 223 ? : |
|
2120
|
34968 |
11352 |
$c1 < 223 ? : |
|
2123
|
102 |
93338 |
unless %sjis2utf8_1 |
|
2125
|
42624 |
50816 |
if (defined $sjis2utf8_1{$sjis}) { } |
|
|
40680 |
10136 |
elsif (defined $sjis2utf8_2{$sjis}) { } |
|
2126
|
42624 |
0 |
if ($cache) { } |
|
2134
|
40680 |
0 |
if ($cache) { } |
|
2151
|
45904 |
22954 |
if $option |
|
2161
|
74 |
68042 |
unless %k2u |
|
2162
|
74 |
68042 |
unless %sjis2utf8_1 |
|
2164
|
0 |
68116 |
if ($s2u{$code}) { } |
|
|
482 |
67634 |
elsif ($k2u{$code}) { } |
|
|
21386 |
46248 |
elsif (defined $sjis2utf8_1{$sjis}) { } |
|
|
24912 |
21336 |
elsif (defined $sjis2utf8_2{$sjis}) { } |
|
2171
|
21386 |
0 |
if ($cache) { } |
|
2179
|
24912 |
0 |
if ($cache) { } |
|
2199
|
144072 |
0 |
if (defined $option) |
|
2200
|
64032 |
80040 |
if ($option =~ /z/) { } |
|
|
64032 |
16008 |
elsif ($option =~ /h/) { } |
|
2214
|
206568 |
0 |
if (defined $option) |
|
2215
|
91808 |
114760 |
if ($option =~ /z/) { } |
|
|
91808 |
22952 |
elsif ($option =~ /h/) { } |
|
2229
|
144072 |
0 |
if (defined $option) |
|
2230
|
64032 |
80040 |
if ($option =~ /z/) { } |
|
|
64032 |
16008 |
elsif ($option =~ /h/) { } |
|
2244
|
135396 |
0 |
if (defined $option) |
|
2245
|
60176 |
75220 |
if ($option =~ /z/) { } |
|
|
60176 |
15044 |
elsif ($option =~ /h/) { } |
|
2291
|
504 |
63528 |
if ($s =~ s/$re_esc_kana([^\e]*)/$esc_0208 . &_h2z_jis($1);/ego) |
|
2314
|
0 |
504 |
defined $3 ? : |
|
2324
|
504 |
0 |
$h2z{$3} ? : |
|
|
504 |
90240 |
unless $1 |
|
2332
|
64 |
60112 |
unless %h2z_utf8 |
|
2334
|
504 |
58608 |
$h2z_utf8{$1} ? : |
|
2359
|
61648 |
816 |
unless $s =~ /^%/ or $s =~ /^![\#\"&VW+,<]/ |
|
2369
|
72 |
63960 |
unless %z2h_euc |
|
2371
|
712 |
62256 |
$z2h_euc{$1} ? : |
|
2379
|
96 |
91712 |
unless %z2h_sjis |
|
2380
|
712 |
89528 |
$z2h_sjis{$1} ? : |
|
2387
|
64 |
60112 |
unless %z2h_utf8 |
|
2388
|
712 |
58400 |
$z2h_utf8{$1} ? : |
|
2405
|
6408 |
6408 |
if $s =~ s/([\xa1-\xdf])/\216$1/g |
|
2413
|
8544 |
8544 |
if $s =~ /[\x80-\xff]/ |
|
2515
|
0 |
64 |
if (%h2z_utf8) { } |
|
2517
|
0 |
0 |
if (scalar keys %z2h_utf8 != scalar keys %h2z_utf8) |
|
2531
|
0 |
64 |
if (%z2h_utf8) { } |
|
2533
|
0 |
0 |
if (scalar keys %h2z_utf8 != scalar keys %z2h_utf8) |
|
6208
|
0 |
320 |
if (scalar keys %sjis2utf8_1 != 3635) |
|
10369
|
0 |
320 |
if (scalar keys %sjis2utf8_2 != 4152) |
|
10376
|
144 |
0 |
unless %sjis2utf8_1 |
|
10784
|
0 |
144 |
if (scalar keys %JP170559 != 396) |
|
10861
|
0 |
84 |
if (%u2k) { } |
|
10863
|
0 |
0 |
if (scalar keys %k2u != scalar keys %u2k) |
|
10877
|
0 |
12 |
if (%k2u) { } |
|
10879
|
0 |
0 |
if (scalar keys %u2k != scalar keys %k2u) |
|
10929
|
0 |
2 |
if $s =~ /$re_esc_jp|$re_esc_asc|$re_esc_kana/o |
|
10930
|
0 |
2 |
if $to =~ /$re_esc_jp|$re_esc_asc|$re_esc_kana/o |
|
10932
|
0 |
0 |
if (not defined $prev_from or $from ne $prev_from or $to ne $prev_to or $option ne $prev_opt) |
|
10943
|
134 |
0 |
defined $table{$1} && ++$n ? : |
|
10946
|
0 |
2 |
if $jis |
|
10955
|
0 |
2 |
if $to =~ /$re_esc_jp|$re_esc_asc|$re_esc_kana/o |
|
10956
|
0 |
2 |
if $from =~ /$re_esc_jp|$re_esc_asc|$re_esc_kana/o |
|
10964
|
0 |
0 |
$option =~ /d/ ? : |
|
|
0 |
2 |
if @to < @from |
|
10974
|
6 |
0 |
if ($c1 <= $c2) |
|
10986
|
6 |
0 |
if ($c1 == $c3 and $c2 <= $c4) |