| line |
true |
false |
branch |
|
54
|
0 |
70 |
unless my $e = find_encoding($name) |
|
63
|
120 |
0 |
if $_[0]{'normalize'} |
|
64
|
120 |
0 |
&Encode::is_utf8($$r_str) ? : |
|
107
|
0 |
0 |
if $n > $result |
|
|
0 |
50 |
ref $str ? : |
|
|
25 |
25 |
if defined $_[1] |
|
|
50 |
0 |
unless (&Encode::is_utf8($$r_str) or $icode eq 'binary') |
|
|
25 |
26 |
ref $_[0] ? : |
|
|
0 |
51 |
if &Encode::is_utf8($$r_str) |
|
|
0 |
51 |
unless defined $icode or $icode = getcode($r_str) |
|
|
0 |
51 |
if $icode eq 'binary' |
|
|
41 |
10 |
if $jname2e{$icode} |
|
|
41 |
10 |
if $jname2e{$ocode} |
|
|
0 |
0 |
$opt eq 'z' ? : |
|
|
1 |
50 |
if (&Scalar::Util::readonly($$r_str)) { } |
|
|
0 |
51 |
if ($opt) { } |
|
|
5 |
0 |
ref $arg ? : |
|
|
0 |
5 |
if &Encode::is_utf8($$r_str) |
|
|
1 |
0 |
if ($ucs2) { } |
|
|
0 |
3 |
if $Jcode::DEBUG >= 3 |
|
|
1 |
0 |
$utf8 > $euc && $utf8 > $sjis ? : |
|
|
1 |
1 |
$sjis > $euc && $sjis > $utf8 ? : |
|
|
1 |
2 |
$euc > $sjis && $euc > $utf8 ? : |
|
|
1 |
4 |
if ($$r_str =~ /$RE{'BIN'}/o) { } |
|
|
0 |
4 |
elsif (not $$r_str =~ /[\e\x80-\xff]/o) { } |
|
|
1 |
3 |
elsif ($$r_str =~ /
$RE{'JIS_0208'}|$RE{'JIS_0212'}|$RE{'JIS_ASC'}|$RE{'JIS_KANA'}
/ox) { } |
|
|
0 |
5 |
wantarray ? : |
|
|
16 |
186 |
ref $str ? : |
|
|
140 |
62 |
if defined $_[1] |
|
|
194 |
8 |
unless (&Encode::is_utf8($$r_str) or $icode eq 'binary') |
|
114
|
77 |
0 |
if $_[0]{'normalize'} |
|
126
|
0 |
0 |
unless @_ |
|
152
|
172 |
0 |
ref $_[0] ? : |
|
|
172 |
0 |
if (defined $$str_ref and &Encode::is_utf8($$str_ref)) |
|
161
|
0 |
13 |
if $@ |
|
163
|
25 |
0 |
ref $_[0] ? : |
|
|
25 |
0 |
if (defined $$str_ref and &Encode::is_utf8($$str_ref)) |
|
172
|
0 |
13 |
if $@ |