| line |
true |
false |
branch |
|
68
|
22 |
91 |
@_ % 2 ? : |
|
71
|
0 |
113 |
if defined $args{'body'} |
|
72
|
91 |
22 |
unless (defined $body) |
|
74
|
86 |
5 |
if defined $body |
|
77
|
33 |
80 |
if $class ne "Mail::Message::Field::Full" |
|
94
|
13 |
100 |
if (not defined $body && length $body or ref $body) { } |
|
|
81 |
19 |
elsif (index($body, "\n") >= 0) { } |
|
108
|
84 |
1 |
unless wantarray |
|
119
|
19 |
196 |
if (defined $body) |
|
136
|
100 |
324 |
if (@_ == 2) { } |
|
|
269 |
55 |
elsif (defined($body = $self->{'MMFF_body'})) { } |
|
148
|
38 |
386 |
wantarray ? : |
|
156
|
0 |
0 |
defined $field ? : |
|
173
|
10 |
28 |
if @_ |
|
197
|
2 |
63 |
if length $_ > 50 |
|
200
|
58 |
5 |
if @_ |
|
203
|
48 |
15 |
if (/[^$atext]/) |
|
234
|
28 |
63 |
if ($charset = $args{'charset'}) { } |
|
235
|
0 |
28 |
if $charset =~ m([\x00-\ ()<>\@,;:"/[\]?.=\\]) |
|
240
|
4 |
87 |
if ($lang = $args{'language'}) |
|
241
|
0 |
4 |
if $lang =~ m([\x00-\ ()<>\@,;:"/[\]?.=\\]) |
|
245
|
11 |
80 |
if ($encoding = $args{'encoding'}) { } |
|
246
|
0 |
11 |
unless ($encoding =~ /^[bBqQ]$/) |
|
254
|
2 |
89 |
defined $name ? : |
|
259
|
63 |
16 |
if lc $encoding eq "q" and length $utf8 < 70 and ($utf8 =~ /\A[\p{IsASCII}]+\z/ms and not $args{'force'}) |
|
261
|
4 |
24 |
$lang ? : |
|
264
|
20 |
8 |
if (lc $encoding eq 'q') { } |
|
270
|
24 |
644 |
if (&bytes::length($chunk) + &bytes::length($chr) > $llen) |
|
277
|
20 |
0 |
if length $chunk |
|
285
|
7 |
303 |
if (&bytes::length($chunk) + &bytes::length($chr) > $llen) |
|
292
|
8 |
0 |
if length $chunk |
|
304
|
0 |
41 |
unless $to_utf8 |
|
307
|
1 |
40 |
if (not $encoding =~ /\S/) { } |
|
|
32 |
8 |
elsif (lc $encoding eq 'q') { } |
|
|
8 |
0 |
elsif (lc $encoding eq 'b') { } |
|
331
|
1 |
264 |
unless @encoded |
|
335
|
0 |
264 |
defined $args{'is_text'} ? : |
|
342
|
14 |
27 |
unless @encoded |
|
345
|
17 |
10 |
if ($is_text and not $encoded[0] =~ /\S/) { } |
|
362
|
77 |
96 |
if ($string =~ s/^\s*\" ((?:[^"\r\n\\]*|\\.)*) (?:\"|\s*$)//x) { } |
|
|
91 |
5 |
elsif ($string =~ s/^\s*((?:\=\?.*\?\=|[$atext$atext_ill\ \t.])+)//o) { } |
|
367
|
2 |
89 |
unless length $phrase |
|
370
|
166 |
7 |
defined $phrase ? : |
|
379
|
548 |
45 |
unless $string =~ s/^\s*\(((?:[^)\\]+|\\.)*)\)// |
|
386
|
44 |
5 |
if $count =~ tr/(// == $count =~ tr/)// |
|
388
|
1 |
4 |
unless $string =~ s/^((?:[^)\\]+|\\.)*)\)// |
|
405
|
5 |
142 |
if (defined $c) |
|
407
|
72 |
70 |
unless $string =~ s/^\s*([$atext]+(?:\.[$atext]+)*)//o |