| line |
true |
false |
branch |
|
29
|
0 |
3 |
if exists $args{'body'} |
|
32
|
3 |
0 |
if $include eq "INLINE" |
|
35
|
0 |
0 |
if defined $preamble and not ref $preamble |
|
38
|
0 |
0 |
if $include eq "ATTACH" |
|
39
|
0 |
0 |
if $include eq "ENCAPSULATE" |
|
52
|
0 |
7 |
unless defined $body |
|
63
|
7 |
0 |
unless (defined $from) |
|
65
|
7 |
0 |
if @from |
|
70
|
0 |
7 |
unless $to |
|
75
|
0 |
0 |
ref $srcsub ? : |
|
|
7 |
0 |
!defined($srcsub) ? : |
|
82
|
7 |
0 |
if $msgid and not $msgid =~ /^\s*\<.*\>\s*$/ |
|
88
|
0 |
7 |
$refs ? : |
|
97
|
1 |
6 |
if $args{'Cc'} |
|
98
|
1 |
6 |
if $args{'Bcc'} |
|
99
|
0 |
7 |
if $args{'Date'} |
|
117
|
0 |
4 |
if ($body->isMultipart and $body->parts == 1) { } |
|
|
0 |
4 |
elsif ($body->isNested) { } |
|
125
|
3 |
1 |
exists $args{'prelude'} ? : |
|
127
|
3 |
1 |
if defined $prelude and not &blessed($prelude) |
|
132
|
3 |
1 |
exists $args{'postlude'} ? : |
|
137
|
1 |
3 |
if ($body->isMultipart or $body->isBinary) |
|
153
|
2 |
1 |
if $strip |
|
155
|
2 |
1 |
if (defined(my $quote = $args{'quote'})) |
|
156
|
1 |
1 |
ref $quote ? : |
|
165
|
0 |
3 |
if defined $signature and $signature->isa("Mail::Message") |
|
168
|
0 |
3 |
defined $signature ? : |
|
185
|
1 |
2 |
if ($body->isMultipart) |
|
186
|
1 |
0 |
if $strip |
|
187
|
1 |
0 |
if $body->parts == 1 |
|
191
|
0 |
3 |
unless ref $preamble |
|
195
|
0 |
3 |
if defined $args{'signature'} |
|
208
|
0 |
1 |
unless ref $preamble |
|
213
|
0 |
1 |
if defined $args{'signature'} |
|
227
|
8 |
6 |
defined $subject && length $subject ? : |
|
242
|
1 |
0 |
if defined $from |
|
243
|
1 |
0 |
if defined $to |
|
244
|
1 |
0 |
if defined $cc |
|
245
|
1 |
0 |
if defined $date |