| line |
true |
false |
branch |
|
40
|
0 |
8 |
ref $_[0] ? : |
|
41
|
5 |
3 |
@_ == 1 ? : |
|
48
|
4 |
4 |
exists $opt->{'EncodeFrom'} ? : |
|
49
|
4 |
4 |
exists $opt->{'EncodeTo'} ? : |
|
78
|
10 |
4 |
if (lc $self->{'EncodeFrom'} ne lc $self->{'EncodeTo'}) { } |
|
96
|
4 |
10 |
if ($ref eq 'SCALAR') { } |
|
|
1 |
9 |
elsif ($ref eq 'CODE') { } |
|
|
1 |
8 |
elsif ($ref eq 'ARRAY') { } |
|
|
4 |
4 |
elsif ($ref eq 'GLOB' or UNIVERSAL::isa(\$self->{'Output'}, 'GLOB') or UNIVERSAL::isa($self->{'Output'}, 'IO::Handle')) { } |
|
|
1 |
3 |
elsif (not $ref) { } |
|
|
2 |
1 |
elsif (UNIVERSAL::can($self->{'Output'}, 'output')) { } |
|
210
|
1 |
8 |
if (not defined $out and defined $str) |
|
345
|
0 |
4 |
unless print $fh pop() |
|
373
|
0 |
3 |
defined $opt && ref $opt eq 'HASH' && defined $opt->{'EncodeTo'} ? : |
|
375
|
0 |
3 |
unless defined $file |
|
381
|
0 |
3 |
unless open XFH, ">:encoding($enc_to)", $file |
|
427
|
7 |
0 |
if $self->{'from_enc'} |
|
428
|
7 |
0 |
if $self->{'to_enc'} |
|
430
|
1 |
6 |
if ($@) |