| line |
true |
false |
branch |
|
60
|
1 |
3 |
if (defined $_[1] and $_[1] eq ':xml') |
|
96
|
0 |
4 |
if (defined $_[1] and $_[1] eq ':simple') |
|
102
|
0 |
4 |
if (defined $_[1] and $_[1] eq ':describe') |
|
124
|
0 |
0 |
if ($opt =~ /^\:/) { } |
|
126
|
0 |
0 |
if $opt eq ':simple' and $opt{'non-quoting'} = 1 and $opt{'non-refined'} = 1 |
|
127
|
0 |
0 |
if $opt eq ':describe' and $opt{'describe'} = 1 |
|
136
|
0 |
0 |
unless defined $cls |
|
147
|
0 |
0 |
if ref $cls |
|
151
|
0 |
0 |
unless defined ${$cls . '::encoder';} |
|
160
|
0 |
0 |
if ref $cls |
|
164
|
0 |
0 |
unless defined ${$cls . '::decoder';} |
|
175
|
0 |
0 |
unless defined $encoder and $encoder == -1 |
|
296
|
0 |
0 |
if ($option{'describe'}) |
|
301
|
0 |
0 |
defined ${$cls . '::enmode';} ? : |
|
312
|
0 |
0 |
unless defined $decoder and $decoder == -1 |
|
392
|
0 |
0 |
$option{'non-quoting'} ? : |
|
595
|
0 |
0 |
$option{'non-quoting'} ? : |
|
828
|
0 |
0 |
$option{'non-quoting'} ? : |
|
830
|
0 |
0 |
$option{'non-quoting'} ? : |
|
860
|
0 |
0 |
$option{'non-quoting'} ? : |
|
900
|
0 |
0 |
$option{'non-quoting'} ? : |
|
|
0 |
0 |
$option{'non-quoting'} ? : |
|
|
0 |
0 |
$option{'non-quoting'} ? : |
|
|
0 |
0 |
$option{'non-quoting'} ? : |
|
|
0 |
0 |
$option{'non-quoting'} ? : |
|
|
0 |
0 |
$option{'non-quoting'} ? : |
|
|
0 |
0 |
$option{'non-quoting'} ? : |
|
980
|
0 |
0 |
$option{'non-quoting'} ? : |
|
|
0 |
0 |
$option{'non-refined'} ? : |
|
1050
|
0 |
0 |
$$_[0] eq q['a] ? : |
|
|
0 |
0 |
$option{'non-refined'} ? : |
|
|
0 |
0 |
$$_[0] eq q['a] ? : |
|
|
0 |
0 |
$option{'non-refined'} ? : |
|
|
0 |
0 |
$option{'non-quoting'} ? : |
|
1098
|
0 |
0 |
$option{'non-quoting'} ? : |
|
1207
|
0 |
0 |
$option{'non-refined'} ? : |
|
|
0 |
0 |
$option{'non-refined'} ? : |
|
|
0 |
0 |
$option{'non-refined'} ? : |
|
|
0 |
0 |
$option{'non-refined'} ? : |
|
|
0 |
0 |
$option{'non-quoting'} ? : |
|
|
0 |
0 |
$option{'non-refined'} ? : |
|
|
0 |
0 |
$$_[0] eq q['a] ? : |
|
|
0 |
0 |
$$_[0] eq q['a] ? : |
|
|
0 |
0 |
$option{'non-quoting'} ? : |
|
1257
|
0 |
0 |
$option{'non-quoting'} ? : |
|
1260
|
0 |
0 |
$option{'non-refined'} ? : |
|
|
0 |
0 |
$option{'non-refined'} ? : |
|
|
0 |
0 |
$option{'non-quoting'} ? : |
|
1370
|
0 |
0 |
$option{'non-quoting'} ? : |
|
|
0 |
0 |
$option{'non-refined'} ? : |
|
1418
|
0 |
0 |
$option{'non-quoting'} ? : |
|
|
0 |
0 |
$option{'non-quoting'} ? : |
|
|
0 |
0 |
$option{'non-refined'} ? : |
|
1466
|
0 |
0 |
$_ eq '' ? : |
|
|
0 |
0 |
$_ eq '' ? : |
|
1482
|
0 |
0 |
$option{'non-quoting'} ? : |
|
|
0 |
0 |
$option{'non-quoting'} ? : |
|
1484
|
0 |
0 |
$option{'non-quoting'} ? : |
|
1585
|
0 |
0 |
$option{'non-refined'} ? : |
|
|
0 |
0 |
$option{'non-refined'} ? : |
|
|
0 |
0 |
$option{'non-refined'} ? : |
|
|
0 |
0 |
$option{'non-refined'} ? : |
|
|
0 |
0 |
$option{'non-quoting'} ? : |
|
|
0 |
0 |
$option{'non-refined'} ? : |
|
|
0 |
0 |
$option{'non-quoting'} ? : |
|
1638
|
0 |
0 |
if ($option{'describe'}) |
|
1643
|
0 |
0 |
defined ${$cls . '::demode';} ? : |
|
1653
|
0 |
0 |
++$i % 2 ? : |
|
|
0 |
0 |
@_ ? : |
|
1662
|
0 |
0 |
if (exists $opt{'load'}) |
|
1664
|
0 |
0 |
if (ref \$opt{'load'} eq 'SCALAR') { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($opt{'load'}, 'CODE')) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($opt{'load'}, 'ARRAY')) { } |
|
1666
|
0 |
0 |
if (my $done = do $opt{'load'}) { } |
|
1672
|
0 |
0 |
if $@ |
|
1673
|
0 |
0 |
unless defined $done |
|
1685
|
0 |
0 |
if (grep {not $_->isa('Encode::Mapper');} @{$opt{'load'};}) |
|
1697
|
0 |
0 |
if (exists $opt{'dump'}) |
|
1711
|
0 |
0 |
if (ref \$opt{'dump'} eq 'SCALAR') { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($opt{'dump'}, 'SCALAR')) { } |
|
1713
|
0 |
0 |
if ($opt{'dump'} =~ /^[A-Z][A-Za-z]*(\:\:[A-Z][A-Za-z]*)+$/) { } |
|
|
0 |
0 |
elsif (not $opt{'dump'} =~ s/^!// and -f $opt{'dump'}) { } |
|
1733
|
0 |
0 |
unless open my $file, '>', $opt{'dump'} |
|
1763
|
0 |
0 |
if ref $cls |
|
1765
|
0 |
0 |
unless defined $mode |
|
1766
|
0 |
0 |
if exists $modemap{$mode} |
|
1772
|
0 |
0 |
if defined $mode |
|
1774
|
0 |
0 |
unless defined ${$cls . '::encoder';} |
|
1776
|
0 |
0 |
if (defined $mode) |
|
1778
|
0 |
0 |
unless defined $${$cls . '::encoder';}[$mode + $enlevel] or $mode == 0 |
|
1790
|
0 |
0 |
if ref $cls |
|
1792
|
0 |
0 |
unless defined $mode |
|
1793
|
0 |
0 |
if exists $modemap{$mode} |
|
1799
|
0 |
0 |
if defined $mode |
|
1801
|
0 |
0 |
unless defined ${$cls . '::decoder';} |
|
1803
|
0 |
0 |
if (defined $mode) |
|
1805
|
0 |
0 |
unless defined $${$cls . '::decoder';}[$mode + $delevel] or $mode == 0 |
|
1983
|
0 |
0 |
$option{'font-fixing'} ? : |
|
|
0 |
0 |
$option{'font-fixing'} ? : |
|
|
0 |
0 |
$option{'font-fixing'} ? : |
|
|
0 |
0 |
$option{'font-fixing'} ? : |
|
2140
|
0 |
0 |
$option{'font-fixing'} ? : |
|
|
0 |
0 |
$option{'font-fixing'} ? : |
|
|
0 |
0 |
$option{'font-fixing'} ? : |
|
2212
|
0 |
0 |
$option{'font-fixing'} ? : |
|
2331
|
0 |
0 |
$option{'font-fixing'} ? : |
|
|
0 |
0 |
$option{'font-fixing'} ? : |
|
2360
|
0 |
0 |
if $option{'describe'} |