| line |
true |
false |
branch |
|
75
|
3 |
1 |
if ($arg eq ':all') { } |
|
80
|
0 |
0 |
/::/ ? : |
|
83
|
0 |
0 |
if $ExtModule{$enc} eq $mod |
|
92
|
0 |
16 |
ref $_[0] ? : |
|
93
|
16 |
0 |
if $obj->can('perlio_ok') |
|
102
|
357 |
961 |
unless $lc eq $name |
|
108
|
183 |
1135 |
unless grep {$_ eq $class;} @CARP_NOT |
|
109
|
183 |
1135 |
unless grep {$_ eq $class;} @Encode::Encoding::CARP_NOT |
|
116
|
19 |
61743 |
unless defined $name |
|
120
|
3 |
61740 |
if ref $name and $name->can('renew') |
|
121
|
58462 |
3278 |
if exists $Encoding{$name} |
|
123
|
51 |
3227 |
if exists $Encoding{$lc} |
|
126
|
2749 |
478 |
if defined $oc |
|
127
|
284 |
194 |
if $lc ne $name |
|
128
|
0 |
478 |
if defined $oc |
|
130
|
478 |
0 |
unless ($skip_external) |
|
131
|
81 |
397 |
if (my $mod = $ExtModule{$name} || $ExtModule{$lc}) |
|
135
|
81 |
0 |
if exists $Encoding{$name} |
|
154
|
0 |
0 |
if defined $obj |
|
160
|
0 |
0 |
unless ref $obj |
|
166
|
133 |
2152 |
unless defined $string |
|
169
|
0 |
2152 |
unless (defined $name) |
|
174
|
0 |
2152 |
unless (defined $enc) |
|
181
|
72 |
2080 |
if (ref $enc eq 'Encode::Unicode') { } |
|
187
|
0 |
70 |
if length $warn |
|
192
|
1369 |
161 |
if $check and not ref $check and not $check & 8 |
|
199
|
133 |
1395 |
unless defined $octets |
|
203
|
0 |
1395 |
unless (defined $enc) |
|
210
|
61 |
1334 |
if (ref $enc eq 'Encode::Unicode') { } |
|
216
|
3 |
56 |
if length $warn |
|
221
|
14 |
321 |
if $check and not ref $check and not $check & 8 |
|
228
|
0 |
2151 |
unless defined $string |
|
231
|
0 |
2151 |
unless (defined $f) |
|
236
|
0 |
2151 |
unless (defined $t) |
|
244
|
3 |
2148 |
if (ref $f eq 'Encode::Unicode') { } |
|
250
|
3 |
0 |
if length $warn |
|
256
|
0 |
2151 |
if (ref $t eq 'Encode::Unicode') { } |
|
262
|
0 |
0 |
if length $warn |
|
268
|
1 |
2150 |
if $check and length $uni |
|
269
|
2150 |
0 |
defined $_[0] ? : |
|
274
|
2 |
376 |
unless defined $str |
|
283
|
3 |
16 |
unless defined $octets |
|
288
|
2 |
0 |
if $check and not ref $check and not $check & 8 |
|
308
|
0 |
0 |
if $chk |
|
320
|
0 |
0 |
if $chk |
|
331
|
0 |
3 |
if $chk |
|
358
|
32 |
0 |
if ((my $npos = index($$rsrc, $trm, $pos)) >= 0) |