| line |
true |
false |
branch |
|
57
|
1 |
1 |
if (defined $_[1] and $_[1] eq ':xml') |
|
93
|
0 |
2 |
if (defined $_[1] and $_[1] eq ':simple') |
|
99
|
0 |
2 |
if (defined $_[1] and $_[1] eq ':describe') |
|
107
|
2 |
0 |
unless 'Encode'->can('export_to_level') |
|
123
|
0 |
0 |
if ($opt =~ /^\:/) { } |
|
125
|
0 |
0 |
if $opt eq ':simple' and $opt{'non-quoting'} = 1 and $opt{'non-refined'} = 1 |
|
126
|
0 |
0 |
if $opt eq ':describe' and $opt{'describe'} = 1 |
|
135
|
0 |
0 |
unless defined $cls |
|
146
|
6 |
0 |
if ref $cls |
|
150
|
0 |
6 |
unless defined ${$cls . '::encoder';} |
|
159
|
3 |
0 |
if ref $cls |
|
163
|
0 |
3 |
unless defined ${$cls . '::decoder';} |
|
174
|
0 |
1 |
unless defined $encoder and $encoder == -1 |
|
295
|
0 |
1 |
if ($option{'describe'}) |
|
300
|
0 |
1 |
defined ${$cls . '::enmode';} ? : |
|
311
|
0 |
1 |
unless defined $decoder and $decoder == -1 |
|
430
|
0 |
39 |
$option{'non-quoting'} ? : |
|
785
|
0 |
44 |
$option{'non-quoting'} ? : |
|
859
|
0 |
39 |
$option{'non-quoting'} ? : |
|
863
|
0 |
1716 |
$option{'non-quoting'} ? : |
|
899
|
0 |
1 |
$option{'non-quoting'} ? : |
|
|
0 |
1 |
$option{'non-quoting'} ? : |
|
|
0 |
1 |
$option{'non-quoting'} ? : |
|
|
0 |
1 |
$option{'non-quoting'} ? : |
|
|
0 |
1 |
$option{'non-quoting'} ? : |
|
|
0 |
1 |
$option{'non-quoting'} ? : |
|
|
0 |
1 |
$option{'non-quoting'} ? : |
|
903
|
0 |
40 |
$option{'non-quoting'} ? : |
|
1049
|
2 |
86 |
$_->[0] eq q['a] ? : |
|
|
0 |
88 |
$option{'non-refined'} ? : |
|
|
2 |
86 |
$_->[0] eq q['a] ? : |
|
|
0 |
88 |
$option{'non-refined'} ? : |
|
|
0 |
88 |
$option{'non-quoting'} ? : |
|
1061
|
0 |
4136 |
$option{'non-quoting'} ? : |
|
|
0 |
4136 |
$option{'non-refined'} ? : |
|
1209
|
0 |
1350 |
$option{'non-quoting'} ? : |
|
1226
|
0 |
90 |
$option{'non-refined'} ? : |
|
|
0 |
90 |
$option{'non-refined'} ? : |
|
|
0 |
90 |
$option{'non-refined'} ? : |
|
|
0 |
90 |
$option{'non-refined'} ? : |
|
|
0 |
90 |
$option{'non-quoting'} ? : |
|
|
0 |
90 |
$option{'non-refined'} ? : |
|
|
2 |
88 |
$_->[0] eq q['a] ? : |
|
|
2 |
88 |
$_->[0] eq q['a] ? : |
|
|
0 |
90 |
$option{'non-quoting'} ? : |
|
1316
|
0 |
90 |
$option{'non-refined'} ? : |
|
|
0 |
90 |
$option{'non-refined'} ? : |
|
|
0 |
90 |
$option{'non-quoting'} ? : |
|
1365
|
0 |
2 |
$option{'non-quoting'} ? : |
|
1427
|
0 |
1 |
$option{'non-quoting'} ? : |
|
|
0 |
1 |
$option{'non-quoting'} ? : |
|
|
0 |
1 |
$option{'non-refined'} ? : |
|
1433
|
0 |
45 |
$option{'non-quoting'} ? : |
|
|
0 |
45 |
$option{'non-refined'} ? : |
|
1475
|
1 |
7 |
$_ eq '' ? : |
|
|
1 |
7 |
$_ eq '' ? : |
|
1491
|
0 |
1 |
$option{'non-quoting'} ? : |
|
|
0 |
1 |
$option{'non-quoting'} ? : |
|
1597
|
0 |
15 |
$option{'non-quoting'} ? : |
|
1614
|
0 |
1 |
$option{'non-refined'} ? : |
|
|
0 |
1 |
$option{'non-refined'} ? : |
|
|
0 |
1 |
$option{'non-refined'} ? : |
|
|
0 |
1 |
$option{'non-refined'} ? : |
|
|
0 |
1 |
$option{'non-quoting'} ? : |
|
|
0 |
1 |
$option{'non-refined'} ? : |
|
|
0 |
1 |
$option{'non-quoting'} ? : |
|
1647
|
0 |
1 |
if ($option{'describe'}) |
|
1652
|
0 |
1 |
defined ${$cls . '::demode';} ? : |
|
1662
|
0 |
0 |
++$i % 2 ? : |
|
|
0 |
2 |
@_ ? : |
|
1671
|
0 |
2 |
if (exists $opt{'load'}) |
|
1673
|
0 |
0 |
if (ref \$opt{'load'} eq 'SCALAR') { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($opt{'load'}, 'CODE')) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($opt{'load'}, 'ARRAY')) { } |
|
1675
|
0 |
0 |
if (my $done = do $opt{'load'}) { } |
|
1681
|
0 |
0 |
if $@ |
|
1682
|
0 |
0 |
unless defined $done |
|
1694
|
0 |
0 |
if (grep {not $_->isa('Encode::Mapper');} @{$opt{'load'};}) |
|
1706
|
0 |
2 |
if (exists $opt{'dump'}) |
|
1720
|
0 |
0 |
if (ref \$opt{'dump'} eq 'SCALAR') { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($opt{'dump'}, 'SCALAR')) { } |
|
1722
|
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'}) { } |
|
1742
|
0 |
0 |
unless open my $file, '>', $opt{'dump'} |
|
1772
|
0 |
2 |
if ref $cls |
|
1774
|
0 |
2 |
unless defined $mode |
|
1775
|
2 |
0 |
if exists $modemap{$mode} |
|
1781
|
2 |
0 |
if defined $mode |
|
1783
|
0 |
2 |
unless defined ${$cls . '::encoder';} |
|
1785
|
2 |
0 |
if (defined $mode) |
|
1787
|
2 |
0 |
unless defined $${$cls . '::encoder';}[$mode + $enlevel] or $mode == 0 |
|
1799
|
0 |
2 |
if ref $cls |
|
1801
|
0 |
2 |
unless defined $mode |
|
1802
|
2 |
0 |
if exists $modemap{$mode} |
|
1808
|
2 |
0 |
if defined $mode |
|
1810
|
0 |
2 |
unless defined ${$cls . '::decoder';} |
|
1812
|
2 |
0 |
if (defined $mode) |
|
1814
|
2 |
0 |
unless defined $${$cls . '::decoder';}[$mode + $delevel] or $mode == 0 |
|
1992
|
0 |
1 |
$option{'font-fixing'} ? : |
|
|
0 |
1 |
$option{'font-fixing'} ? : |
|
|
0 |
1 |
$option{'font-fixing'} ? : |
|
|
0 |
1 |
$option{'font-fixing'} ? : |
|
2149
|
0 |
1 |
$option{'font-fixing'} ? : |
|
|
0 |
1 |
$option{'font-fixing'} ? : |
|
|
0 |
1 |
$option{'font-fixing'} ? : |
|
2221
|
0 |
1 |
$option{'font-fixing'} ? : |
|
2344
|
0 |
1 |
$option{'font-fixing'} ? : |
|
|
0 |
1 |
$option{'font-fixing'} ? : |
|
2373
|
0 |
1 |
if $option{'describe'} |