| line |
true |
false |
branch |
|
169
|
0 |
924 |
if $] < "5.006" |
|
216
|
924 |
0 |
if ($] >= "5.038") |
|
600
|
0 |
926 |
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") |
|
625
|
0 |
926 |
if (scalar keys %h2z != 178) |
|
630
|
0 |
926 |
if (scalar keys %z2h != scalar keys %h2z) |
|
1302
|
926 |
0 |
if ($support_jcode_package_too) |
|
1377
|
924 |
0 |
if ($] >= "5.038") |
|
1392
|
0 |
0 |
if defined $esc_0208{$esc_0208} |
|
1395
|
0 |
0 |
if length $esc_asc == 1 |
|
1405
|
0 |
0 |
if (/($re_esc_jis0208)/o) |
|
1408
|
0 |
0 |
if (/($re_esc_asc)/o) |
|
1426
|
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) { } |
|
1456
|
0 |
0 |
if (wantarray) { } |
|
1493
|
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) { } |
|
1508
|
1 |
127 |
if ($s =~ /\x1b/) { } |
|
|
63 |
64 |
elsif ($s =~ /$re_sjis_ank/o) { } |
|
1530
|
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) { } |
|
1643
|
0 |
44 |
if (/[\xfd-\xff]/) |
|
1650
|
0 |
15 |
if (/[\x80-\x8d\x90-\xa0\xff]/ or /[\x8e][^\xa1-\xdf]/ or /[\x8f]([^\xa1-\xfe]|.[^\xa1-\xfe])/) |
|
1659
|
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])/) |
|
1707
|
0 |
149 |
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}))) |
|
1713
|
11 |
33 |
if ($encoding eq "sjis") |
|
1714
|
1 |
10 |
if (length $parsee{'sjis'} == length $parsee{'euc'}) |
|
1717
|
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}/) { } |
|
1732
|
0 |
65881 |
wantarray ? : |
|
1753
|
15 |
129 |
if ($encoding eq 'sjis') { } |
|
|
43 |
86 |
elsif ($encoding eq 'euc') { } |
|
|
39 |
47 |
elsif ($encoding eq 'utf8') { } |
|
|
47 |
0 |
elsif ($encoding eq 'binary') { } |
|
1822
|
0 |
840962 |
unless $INPUT_encoding = $INPUT_encoding || &getcode(*s) |
|
1823
|
0 |
840962 |
if $INPUT_encoding eq "binary" |
|
1824
|
0 |
840962 |
unless $OUTPUT_encoding |
|
1825
|
0 |
840962 |
if $OUTPUT_encoding eq "noconv" |
|
1827
|
180936 |
660026 |
if ($INPUT_encoding eq "utf8") |
|
1832
|
180936 |
0 |
if ($] >= "5.008") |
|
1841
|
840962 |
0 |
if ($convf{join $;, $INPUT_encoding, $OUTPUT_encoding}) { } |
|
1846
|
0 |
0 |
unless ($@) |
|
1851
|
0 |
840962 |
if (wantarray) { } |
|
1897
|
45904 |
22986 |
if $option |
|
1913
|
720 |
68092 |
if ($s =~ /^$re_ascii/o) { } |
|
|
436 |
67656 |
elsif ($s =~ /^$re_sjis_kana/o) { } |
|
1933
|
32016 |
16042 |
if $option |
|
1950
|
436 |
47544 |
if ($s =~ tr/\216//d) { } |
|
|
0 |
47544 |
elsif ($s =~ tr/\217//d) { } |
|
|
720 |
46824 |
elsif ($s =~ /^$re_ascii/) { } |
|
1975
|
32016 |
16042 |
if $option |
|
1991
|
48778 |
47260 |
if ($esc =~ /^$re_esc_asc/o) { } |
|
|
462 |
46798 |
elsif ($esc =~ /^$re_esc_kana/o) { } |
|
|
0 |
46798 |
elsif ($esc =~ /^$re_esc_jis0212/o) { } |
|
2013
|
32016 |
16042 |
if $option |
|
2054
|
48778 |
47260 |
if ($esc =~ /^$re_esc_asc/o) { } |
|
|
462 |
46798 |
elsif ($esc =~ /^$re_esc_kana/o) { } |
|
|
0 |
46798 |
elsif ($esc =~ /^$re_esc_jis0212/o) { } |
|
2075
|
45904 |
22986 |
if $option |
|
2089
|
0 |
223594 |
if ($code =~ /^$re_ascii/) { } |
|
|
135 |
223459 |
elsif ($s2e{$code}) { } |
|
|
46140 |
177319 |
elsif ($code gt "\352\244") { } |
|
2099
|
381 |
176938 |
if (161 <= $c1 and $c1 <= 223) { } |
|
|
89597 |
87341 |
elsif ($Ken_Lunde_CJKV_AppA_sjis2euc2nd_a{$c2}) { } |
|
|
87341 |
0 |
elsif ($Ken_Lunde_CJKV_AppA_sjis2euc2nd_b{$c2}) { } |
|
2111
|
177319 |
0 |
if ($cache) { } |
|
2125
|
32016 |
16042 |
if $option |
|
2140
|
0 |
103144 |
if ($code =~ /^$re_ascii/) { } |
|
|
154 |
102990 |
elsif ($e2s{$code}) { } |
|
|
488 |
102502 |
elsif ($c1 == 142) { } |
|
|
0 |
102502 |
elsif ($c1 == 143) { } |
|
|
102502 |
0 |
elsif ($Ken_Lunde_CJKV_AppA_euc2sjis1st{$c1}) { } |
|
2153
|
56177 |
46325 |
if ($c1 & 1) { } |
|
2161
|
102502 |
0 |
if ($cache) { } |
|
2175
|
30088 |
15146 |
if $option |
|
2191
|
720 |
44436 |
if ($u =~ /^$re_ascii/o) { } |
|
|
448 |
43988 |
elsif ($u =~ /^$re_utf8_kana/o) { } |
|
2195
|
7 |
441 |
unless %u2k |
|
2216
|
30088 |
15146 |
if $option |
|
2229
|
500 |
43988 |
if ($u =~ /^$re_utf8_kana/o) { } |
|
2230
|
6 |
494 |
unless %u2k |
|
2234
|
43904 |
84 |
unless $u2e{$1} |
|
2246
|
87822 |
0 |
if ($cache) { } |
|
2253
|
0 |
0 |
unless $s2e{$u2s{$code} or &u2s($code)} |
|
2266
|
30088 |
15146 |
if $option |
|
2281
|
145 |
132165 |
unless %utf82sjis_1 |
|
2283
|
203 |
132107 |
if ($u2s{$code}) { } |
|
|
7128 |
124979 |
elsif (defined $JP170559{$utf8}) { } |
|
|
63959 |
61020 |
elsif (defined $utf82sjis_1{$utf8}) { } |
|
|
61020 |
0 |
elsif (defined $utf82sjis_2{$utf8}) { } |
|
2287
|
7128 |
0 |
if ($cache) { } |
|
2295
|
63959 |
0 |
if ($cache) { } |
|
2303
|
61020 |
0 |
if ($cache) { } |
|
2320
|
32016 |
16042 |
if $option |
|
2336
|
48778 |
47260 |
if ($esc =~ /^$re_esc_asc/o) { } |
|
|
462 |
46798 |
elsif ($esc =~ /^$re_esc_kana/o) { } |
|
|
0 |
46798 |
elsif ($esc =~ /^$re_esc_jis0212/o) { } |
|
2339
|
6 |
456 |
unless %k2u |
|
2362
|
32016 |
16042 |
if $option |
|
2376
|
0 |
47312 |
if ($s =~ /^$re_euc_0212/o) { } |
|
|
488 |
46824 |
elsif ($s =~ /^$re_euc_kana/o) { } |
|
2380
|
4 |
484 |
unless %k2u |
|
2384
|
46670 |
154 |
unless $e2u{$1} |
|
2397
|
47129 |
46325 |
if ($c1 % 2) { } |
|
2398
|
34721 |
12408 |
$c1 < 223 ? : |
|
2402
|
34973 |
11352 |
$c1 < 223 ? : |
|
2405
|
102 |
93352 |
unless %sjis2utf8_1 |
|
2407
|
42638 |
50816 |
if (defined $sjis2utf8_1{$sjis}) { } |
|
|
40680 |
10136 |
elsif (defined $sjis2utf8_2{$sjis}) { } |
|
2408
|
42638 |
0 |
if ($cache) { } |
|
2416
|
40680 |
0 |
if ($cache) { } |
|
2437
|
45904 |
22988 |
if $option |
|
2452
|
75 |
68075 |
unless %k2u |
|
2453
|
74 |
68076 |
unless %sjis2utf8_1 |
|
2455
|
14 |
68136 |
if ($s2u{$code}) { } |
|
|
488 |
67648 |
elsif ($k2u{$code}) { } |
|
|
21400 |
46248 |
elsif (defined $sjis2utf8_1{$sjis}) { } |
|
|
24912 |
21336 |
elsif (defined $sjis2utf8_2{$sjis}) { } |
|
2462
|
21400 |
0 |
if ($cache) { } |
|
2470
|
24912 |
0 |
if ($cache) { } |
|
2498
|
144072 |
34 |
if (defined $option) |
|
2499
|
64032 |
80040 |
if ($option =~ /z/) { } |
|
|
64032 |
16008 |
elsif ($option =~ /h/) { } |
|
2515
|
206568 |
34 |
if (defined $option) |
|
2516
|
91808 |
114760 |
if ($option =~ /z/) { } |
|
|
91808 |
22952 |
elsif ($option =~ /h/) { } |
|
2532
|
144072 |
34 |
if (defined $option) |
|
2533
|
64032 |
80040 |
if ($option =~ /z/) { } |
|
|
64032 |
16008 |
elsif ($option =~ /h/) { } |
|
2549
|
135396 |
102 |
if (defined $option) |
|
2550
|
60176 |
75220 |
if ($option =~ /z/) { } |
|
|
60176 |
15044 |
elsif ($option =~ /h/) { } |
|
2605
|
504 |
63528 |
if ($s =~ s/$re_esc_kana([^\e]*)/$esc_0208 . &_h2z_jis($1);/ego) |
|
2634
|
0 |
504 |
defined $3 ? : |
|
2647
|
504 |
0 |
$h2z{$3} ? : |
|
|
504 |
90240 |
unless $1 |
|
2658
|
64 |
60112 |
unless %h2z_utf8 |
|
2660
|
504 |
58608 |
if ($h2z_utf8{$1}) { } |
|
2690
|
61648 |
816 |
unless $s =~ /^%/ or $s =~ /^![\#\"&VW+,<]/ |
|
2703
|
72 |
63960 |
unless %z2h_euc |
|
2705
|
712 |
62256 |
if ($z2h_euc{$1}) { } |
|
2716
|
96 |
91712 |
unless %z2h_sjis |
|
2717
|
712 |
89528 |
if ($z2h_sjis{$1}) { } |
|
2727
|
64 |
60112 |
unless %z2h_utf8 |
|
2728
|
712 |
58400 |
if ($z2h_utf8{$1}) { } |
|
2745
|
6408 |
6408 |
if $s =~ s/([\xa1-\xdf])/\216$1/g |
|
2753
|
8544 |
8544 |
if $s =~ /[\x80-\xff]/ |
|
2855
|
0 |
64 |
if (%h2z_utf8) { } |
|
2857
|
0 |
0 |
if (scalar keys %z2h_utf8 != scalar keys %h2z_utf8) |
|
2871
|
0 |
64 |
if (%z2h_utf8) { } |
|
2873
|
0 |
0 |
if (scalar keys %h2z_utf8 != scalar keys %z2h_utf8) |
|
6548
|
0 |
321 |
if (scalar keys %sjis2utf8_1 != 3635) |
|
10709
|
0 |
321 |
if (scalar keys %sjis2utf8_2 != 4152) |
|
10716
|
145 |
0 |
unless %sjis2utf8_1 |
|
11124
|
0 |
145 |
if (scalar keys %JP170559 != 396) |
|
11201
|
0 |
85 |
if (%u2k) { } |
|
11203
|
0 |
0 |
if (scalar keys %k2u != scalar keys %u2k) |
|
11217
|
1 |
12 |
if (%k2u) { } |
|
11219
|
0 |
1 |
if (scalar keys %u2k != scalar keys %k2u) |
|
11278
|
0 |
2 |
if $s =~ /$re_esc_jp|$re_esc_asc|$re_esc_kana/o |
|
11279
|
0 |
2 |
if $to =~ /$re_esc_jp|$re_esc_asc|$re_esc_kana/o |
|
11281
|
0 |
0 |
if (not defined $prev_from or $from ne $prev_from or $to ne $prev_to or $option ne $prev_opt) |
|
11292
|
134 |
0 |
if (defined $table{$1} and ++$n) { } |
|
11295
|
0 |
2 |
if $jis |
|
11308
|
0 |
2 |
if $to =~ /$re_esc_jp|$re_esc_asc|$re_esc_kana/o |
|
11309
|
0 |
2 |
if $from =~ /$re_esc_jp|$re_esc_asc|$re_esc_kana/o |
|
11317
|
0 |
0 |
$option =~ /d/ ? : |
|
|
0 |
2 |
if @to < @from |
|
11330
|
6 |
0 |
if ($c1 <= $c2) |
|
11345
|
6 |
0 |
if ($c1 == $c3 and $c2 <= $c4) |