| line |
true |
false |
branch |
|
68
|
21 |
91 |
@_ % 2 ? : |
|
71
|
0 |
112 |
if defined $args{'body'} |
|
72
|
91 |
21 |
unless (defined $body) |
|
74
|
86 |
5 |
if defined $body |
|
77
|
32 |
80 |
if $class ne 'Mail::Message::Field::Full' |
|
94
|
13 |
99 |
if (not defined $body && length $body or ref $body) { } |
|
|
81 |
18 |
elsif (index($body, "\n") >= 0) { } |
|
108
|
84 |
1 |
unless wantarray |
|
119
|
18 |
196 |
if (defined $body) |
|
136
|
99 |
324 |
if (@_ == 2) { } |
|
|
269 |
55 |
elsif (defined($body = $self->{'MMFF_body'})) { } |
|
148
|
38 |
385 |
wantarray ? : |
|
156
|
0 |
0 |
defined $field ? : |
|
173
|
10 |
28 |
if @_ |
|
197
|
0 |
63 |
if length $_ > 50 |
|
200
|
58 |
5 |
if @_ |
|
203
|
48 |
15 |
if (/[^$atext]/) |
|
233
|
28 |
61 |
if ($charset = $args{'charset'}) { } |
|
234
|
0 |
28 |
if $charset =~ m([\x00-\ ()<>\@,;:"/[\]?.=\\]) |
|
239
|
4 |
85 |
if ($lang = $args{'language'}) |
|
240
|
0 |
4 |
if $lang =~ m([\x00-\ ()<>\@,;:"/[\]?.=\\]) |
|
244
|
11 |
78 |
if ($encoding = $args{'encoding'}) { } |
|
245
|
0 |
11 |
unless ($encoding =~ /^[bBqQ]$/) |
|
253
|
2 |
87 |
defined $name ? : |
|
258
|
63 |
14 |
if lc $encoding eq 'q' and length $utf8 < 70 and ($utf8 =~ /\A[\p{IsASCII}]+\z/ms and not $args{'force'}) |
|
260
|
4 |
22 |
$lang ? : |
|
263
|
18 |
8 |
if (lc $encoding eq 'q') { } |
|
269
|
22 |
526 |
if (&bytes::length($chunk) + &bytes::length($chr) > $llen) |
|
276
|
18 |
0 |
if length $chunk |
|
284
|
7 |
303 |
if (&bytes::length($chunk) + &bytes::length($chr) > $llen) |
|
291
|
8 |
0 |
if length $chunk |
|
303
|
0 |
39 |
unless $to_utf8 |
|
306
|
1 |
38 |
if (not $encoding =~ /\S/) { } |
|
|
30 |
8 |
elsif (lc $encoding eq 'q') { } |
|
|
8 |
0 |
elsif (lc $encoding eq 'b') { } |
|
330
|
1 |
263 |
unless @encoded |
|
334
|
0 |
263 |
defined $args{'is_text'} ? : |
|
341
|
13 |
26 |
unless @encoded |
|
344
|
16 |
10 |
if ($is_text and not $encoded[0] =~ /\S/) { } |
|
361
|
77 |
95 |
if ($string =~ s/^\s*\" ((?:[^"\r\n\\]*|\\.)*) (?:\"|\s*$)//x) { } |
|
|
90 |
5 |
elsif ($string =~ s/^\s*([$atext$atext_ill\ \t.]+)//o) { } |
|
366
|
2 |
88 |
unless length $phrase |
|
369
|
165 |
7 |
defined $phrase ? : |
|
378
|
538 |
45 |
unless $string =~ s/^\s*\(((?:[^)\\]+|\\.)*)\)// |
|
385
|
44 |
5 |
if $count =~ tr/(// == $count =~ tr/)// |
|
387
|
1 |
4 |
unless $string =~ s/^((?:[^)\\]+|\\.)*)\)// |
|
404
|
5 |
135 |
if (defined $c) |
|
406
|
69 |
66 |
unless $string =~ s/^\s*([$atext]+(?:\.[$atext]+)*)//o |