| line |
true |
false |
branch |
|
68
|
23 |
96 |
@_ % 2 ? : |
|
71
|
0 |
119 |
if defined $args{'body'} |
|
72
|
96 |
23 |
unless (defined $body) |
|
74
|
91 |
5 |
if defined $body |
|
77
|
34 |
85 |
if $class ne "Mail::Message::Field::Full" |
|
94
|
13 |
106 |
if (not defined $body && length $body or ref $body) { } |
|
|
86 |
20 |
elsif (index($body, "\n") >= 0) { } |
|
108
|
88 |
1 |
unless wantarray |
|
119
|
20 |
208 |
if (defined $body) |
|
138
|
106 |
344 |
if (@_ == 2) { } |
|
|
286 |
58 |
elsif (defined($body = $self->{'MMFF_body'})) { } |
|
150
|
42 |
408 |
wantarray ? : |
|
158
|
0 |
0 |
defined $field ? : |
|
175
|
10 |
28 |
if @_ |
|
199
|
2 |
63 |
if length $_ > 50 |
|
202
|
58 |
5 |
if @_ |
|
205
|
48 |
15 |
if (/[^$atext]/) |
|
236
|
28 |
63 |
if ($charset = $args{'charset'}) { } |
|
237
|
0 |
28 |
if $charset =~ m([\x00-\ ()<>\@,;:"/[\]?.=\\]) |
|
242
|
4 |
87 |
if ($lang = $args{'language'}) |
|
243
|
0 |
4 |
if $lang =~ m([\x00-\ ()<>\@,;:"/[\]?.=\\]) |
|
247
|
11 |
80 |
if ($encoding = $args{'encoding'}) { } |
|
248
|
0 |
11 |
unless ($encoding =~ /^[bBqQ]$/) |
|
256
|
2 |
89 |
defined $name ? : |
|
261
|
63 |
16 |
if lc $encoding eq "q" and length $utf8 < 70 and ($utf8 =~ /\A[\p{IsASCII}]+\z/ms and not $args{'force'}) |
|
263
|
4 |
24 |
$lang ? : |
|
266
|
20 |
8 |
if (lc $encoding eq 'q') { } |
|
272
|
24 |
644 |
if (&bytes::length($chunk) + &bytes::length($chr) > $llen) |
|
279
|
20 |
0 |
if length $chunk |
|
287
|
7 |
303 |
if (&bytes::length($chunk) + &bytes::length($chr) > $llen) |
|
294
|
8 |
0 |
if length $chunk |
|
306
|
0 |
41 |
unless $to_utf8 |
|
309
|
1 |
40 |
if (not $encoding =~ /\S/) { } |
|
|
32 |
8 |
elsif (lc $encoding eq 'q') { } |
|
|
8 |
0 |
elsif (lc $encoding eq 'b') { } |
|
333
|
1 |
284 |
unless @encoded |
|
337
|
0 |
284 |
defined $args{'is_text'} ? : |
|
344
|
14 |
27 |
unless @encoded |
|
347
|
17 |
10 |
if ($is_text and not $encoded[0] =~ /\S/) { } |
|
364
|
82 |
122 |
if ($string =~ s/^\s*\" ((?:[^"\r\n\\]*|\\.)*) (?:\"|\s*$)//x) { } |
|
|
103 |
19 |
elsif ($string =~ s/^\s*((?:\=\?.*?\?\=|[$atext$atext_ill\ \t.])+)//o) { } |
|
369
|
8 |
95 |
unless length $phrase |
|
372
|
177 |
27 |
defined $phrase ? : |
|
383
|
570 |
47 |
unless $string =~ s/^\s* \( ((?:\\.|[^)])*) (?:\)|$) //x |
|
393
|
46 |
5 |
if $count =~ tr/(// == $count =~ tr/)// |
|
395
|
1 |
4 |
unless $string =~ s/^((?:\\.|[^)])*) \)//x |
|
416
|
5 |
148 |
if (defined $c) |
|
418
|
75 |
73 |
unless $string =~ s/^\s*([$atext]+(?:\.[$atext]+)*)//o |