| 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
|
332 |
882 |
unless $lc eq $name |
|
108
|
164 |
1050 |
unless grep {$_ eq $class;} @CARP_NOT |
|
109
|
164 |
1050 |
unless grep {$_ eq $class;} @Encode::Encoding::CARP_NOT |
|
116
|
19 |
61707 |
unless defined $name |
|
120
|
3 |
61704 |
if ref $name and $name->can('renew') |
|
121
|
58438 |
3266 |
if exists $Encoding{$name} |
|
123
|
51 |
3215 |
if exists $Encoding{$lc} |
|
126
|
2742 |
473 |
if defined $oc |
|
127
|
284 |
189 |
if $lc ne $name |
|
128
|
0 |
473 |
if defined $oc |
|
130
|
473 |
0 |
unless ($skip_external) |
|
131
|
76 |
397 |
if (my $mod = $ExtModule{$name} || $ExtModule{$lc}) |
|
135
|
76 |
0 |
if exists $Encoding{$name} |
|
163
|
0 |
0 |
if defined $obj |
|
169
|
0 |
0 |
unless ref $obj |
|
175
|
133 |
2151 |
unless defined $string |
|
178
|
0 |
2151 |
unless (defined $name) |
|
183
|
0 |
2151 |
unless (defined $enc) |
|
190
|
72 |
2079 |
if (ref $enc eq 'Encode::Unicode') { } |
|
196
|
0 |
70 |
if length $warn |
|
201
|
1369 |
161 |
if $check and not ref $check and not $check & 8 |
|
208
|
133 |
1397 |
unless defined $octets |
|
212
|
0 |
1397 |
unless (defined $enc) |
|
219
|
61 |
1336 |
if (ref $enc eq 'Encode::Unicode') { } |
|
225
|
3 |
56 |
if length $warn |
|
230
|
14 |
321 |
if $check and not ref $check and not $check & 8 |
|
237
|
0 |
2151 |
unless defined $string |
|
240
|
0 |
2151 |
unless (defined $f) |
|
245
|
0 |
2151 |
unless (defined $t) |
|
253
|
3 |
2148 |
if (ref $f eq 'Encode::Unicode') { } |
|
259
|
3 |
0 |
if length $warn |
|
265
|
0 |
2151 |
if (ref $t eq 'Encode::Unicode') { } |
|
271
|
0 |
0 |
if length $warn |
|
277
|
1 |
2150 |
if $check and length $uni |
|
278
|
2150 |
0 |
defined $_[0] ? : |
|
283
|
2 |
378 |
unless defined $str |
|
292
|
3 |
16 |
unless defined $octets |
|
297
|
2 |
0 |
if $check and not ref $check and not $check & 8 |
|
317
|
0 |
0 |
if $chk |
|
329
|
0 |
0 |
if $chk |
|
340
|
0 |
3 |
if $chk |
|
369
|
0 |
0 |
if ((my $npos = index($$rsrc, $trm, $pos)) >= 0) |