| line |
true |
false |
branch |
|
133
|
79 |
63 |
if ($S =~ /\A(?:iso-?(?:8859-?)?|8859-?)(\d+)\Z(?!\n)/i) { } |
|
|
45 |
18 |
elsif ($S =~ /\AUTF-?8\Z(?!\n)/i) { } |
|
|
3 |
15 |
elsif ($S =~ /\A(?:US-)ASCII\Z(?!\n)/i) { } |
|
144
|
25 |
64 |
if ($$opts{'Encoding'} eq 'B') { } |
|
|
64 |
0 |
elsif ($$opts{'Encoding'} eq 'Q') { } |
|
150
|
109 |
149 |
defined $1 ? : |
|
173
|
25 |
57 |
if $$opts{'Encoding'} eq 'B' |
|
177
|
80 |
2 |
if ($$opts{'Shorts'}) { } |
|
182
|
81 |
6 |
if $J > length $src |
|
183
|
25 |
62 |
if ($$opts{'Charset'} eq 'UTF-8') |
|
184
|
0 |
25 |
if (substr($src, $J, 1) =~ tr/\200-\277//) |
|
186
|
0 |
0 |
if $J > $I + 1 and substr($src, $J - 1, 1) =~ tr/\300-\377// |
|
195
|
7 |
55 |
if ($$opts{'Encoding'} eq 'Q' and $addlen > $maxlen and $addlen > 3) |
|
199
|
3 |
45 |
if (substr($dst, $K - 3, 1) eq '=') { } |
|
217
|
0 |
0 |
defined $2 ? : |
|
239
|
2419 |
363 |
$K == $I ? : |
|
241
|
0 |
2698 |
if ($C eq "\n") { } |
|
|
65 |
2633 |
elsif ($C eq ' ') { } |
|
245
|
18 |
66 |
if ($K > $I and $J > $I + $maxlen) |
|
250
|
70 |
14 |
if ($J + $maxlen >= length $S) |
|
317
|
0 |
72 |
unless defined $S |
|
323
|
33 |
39 |
unless defined $opts{'Raw'} |
|
324
|
28 |
44 |
unless defined $opts{'Charset'} |
|
325
|
0 |
72 |
unless defined $opts{'Charset'} |
|
327
|
38 |
34 |
if ($opts{'Raw'}) |
|
333
|
71 |
0 |
unless defined $opts{'Encoding'} |
|
334
|
71 |
0 |
if $opts{'Encoding'} ne 'B' |
|
335
|
23 |
48 |
if $opts{'Encoding'} eq 'Q' and $opts{'Charset'} eq 'UTF-8' |
|
341
|
69 |
2 |
unless defined $opts{'Shorts'} |
|
342
|
37 |
34 |
unless defined $opts{'Whole'} |
|
343
|
71 |
0 |
unless defined $opts{'Space'} |
|
344
|
71 |
0 |
unless defined $opts{'Split'} |
|
345
|
53 |
18 |
unless defined $opts{'Keeptrailnl'} |
|
347
|
18 |
53 |
if $opts{'Keeptrailnl'} and $S =~ s/(\n)\Z(?!\n)// |
|
348
|
2 |
69 |
if (not $opts{'Shorts'}) { } |
|
|
42 |
27 |
elsif ($opts{'Whole'}) { } |
|
351
|
39 |
3 |
if ($S =~ /$MIME::AltWords::NONPRINT/o) |
|
355
|
42 |
0 |
if $opts{'Split'} |
|
365
|
41 |
0 |
unless defined $D |
|
369
|
29 |
0 |
if ($I + $srclen != length $S and substr($src, -1) eq ' ' and $S =~ / |\Z(?!\n)|($MIME::AltWords::NONPRINT)/cog and not defined $1) |
|
374
|
0 |
41 |
if 1 > length $src |
|
381
|
12 |
15 |
if 0 < length $opts{'Space'} and length $S == $lastpos |
|
383
|
27 |
0 |
if $opts{'Split'} |
|
433
|
27 |
3 |
if $charset and !@L || $L[-1] ne $charset |
|
435
|
5 |
18 |
if @L != 1 |
|
500
|
23 |
27 |
if wantarray |
|
502
|
19 |
8 |
unless defined $opts{'Raw'} |
|
507
|
16 |
11 |
if $opts{'Raw'} and not defined $opts{'Charset'} |
|
511
|
34 |
21 |
$$token[1] ? : |
|
512
|
42 |
13 |
if $opts{'Raw'} |
|
555
|
3 |
45 |
if $charset eq 'UTF-8' or $charset eq 'UTF8' |
|
557
|
9 |
36 |
$@ ? : |
|
570
|
39 |
9 |
if is_encodable $_[0], $charset |
|
581
|
3 |
3 |
$_[1] eq 'addresses' ? : |
|
594
|
3 |
3 |
$_[1] eq 'addresses' ? : |
|
598
|
5 |
8 |
if (canonical_charset $charset2 eq $charset) |
|
602
|
1 |
5 |
unless defined $best_charset |
|
604
|
5 |
1 |
$charset eq $best_charset ? : |
|
614
|
0 |
1 |
if ($main::DEBUG) |
|
625
|
0 |
0 |
if (open my $log, '>> /tmp/em.log') |
|
641
|
0 |
0 |
if (wantarray) { } |
|
644
|
0 |
0 |
if (open my $log, '>> /tmp/em.log') |
|
656
|
0 |
0 |
if (open my $log, '>> /tmp/em.log') |