blib/lib/Encode/MIME/EncWords.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 28 | 78 | 35.9 |
line | true | false | branch |
---|---|---|---|
55 | 0 | 11 | if ref $chk |
56 | 0 | 11 | $chk & 4 ? : |
66 | 21 | 11 | if (defined $ret) { } |
67 | 21 | 0 | unless $skip |
71 | 0 | 32 | if ($skip) |
76 | 8 | 24 | unless length $line |
79 | 0 | 24 | if ($@) |
80 | 0 | 0 | if $chk & 1 |
81 | 0 | 0 | if $chk & 2 |
82 | 0 | 0 | if ($chk & 4) |
92 | 0 | 58 | unless ($cset->decoder) |
94 | 0 | 0 | if $chk & 1 |
95 | 0 | 0 | if $chk & 2 |
96 | 0 | 0 | if ($chk & 4) |
113 | 0 | 58 | if ($@) |
115 | 0 | 0 | if $chk & 1 |
116 | 0 | 0 | if $chk & 2 |
117 | 0 | 0 | if ($chk & 4) |
131 | 0 | 11 | if ($chk & 4) { } |
0 | 11 | elsif ($chk) { } | |
132 | 0 | 0 | unless $skip |
134 | 0 | 0 | unless $chk & 8 |
146 | 0 | 18 | if ref $chk |
147 | 0 | 18 | $chk & 4 ? : |
149 | 1 | 17 | if not &Encode::is_utf8($str) and $str =~ /[^\x00-\x7F]/ |
160 | 9 | 18 | if (defined $ret) { } |
161 | 9 | 0 | unless $skip |
165 | 0 | 27 | if ($skip) |
170 | 5 | 22 | unless length $line |
176 | 0 | 22 | if ($@) |
178 | 0 | 0 | if $chk & 1 |
179 | 0 | 0 | if $chk & 2 |
180 | 0 | 0 | if ($chk & 4) |
188 | 0 | 18 | if ($chk & 4) { } |
0 | 18 | elsif ($chk) { } | |
189 | 0 | 0 | unless $skip |
191 | 0 | 0 | unless $chk & 8 |
197 | 2 | 0 | if scalar @_ % 2 |
200 | 0 | 2 | unless exists $$Config{$key} |