| line |
true |
false |
branch |
|
36
|
0 |
3 |
if exists $args{'body'} |
|
39
|
3 |
0 |
if $include eq "INLINE" |
|
42
|
0 |
0 |
if defined $preamble and not ref $preamble |
|
45
|
0 |
0 |
if $include eq "ATTACH" |
|
46
|
0 |
0 |
if $include eq "ENCAPSULATE" |
|
55
|
0 |
7 |
unless my $body = $args{'body'} |
|
56
|
0 |
7 |
unless my $to = $args{'To'} |
|
66
|
7 |
0 |
unless (defined $from) |
|
68
|
7 |
0 |
if @from |
|
73
|
0 |
0 |
ref $srcsub ? : |
|
|
7 |
0 |
!defined($srcsub) ? : |
|
80
|
7 |
0 |
if $msgid and not $msgid =~ /^\s*\<.*\>\s*$/ |
|
86
|
0 |
7 |
$refs ? : |
|
95
|
1 |
6 |
if $args{'Cc'} |
|
96
|
1 |
6 |
if $args{'Bcc'} |
|
97
|
0 |
7 |
if $args{'Date'} |
|
113
|
0 |
4 |
if ($body->isMultipart and $body->parts == 1) { } |
|
|
0 |
4 |
elsif ($body->isNested) { } |
|
119
|
3 |
1 |
exists $args{'prelude'} ? : |
|
121
|
3 |
1 |
if defined $prelude and not builtin::blessed($prelude) |
|
125
|
3 |
1 |
exists $args{'postlude'} ? : |
|
130
|
1 |
3 |
if ($body->isMultipart or $body->isBinary) |
|
140
|
2 |
1 |
if (!exists $args{'strip_signature'} || $args{'strip_signature'} and not $body->isNested) |
|
144
|
2 |
1 |
if (defined(my $quote = $args{'quote'})) |
|
145
|
1 |
1 |
ref $quote ? : |
|
154
|
0 |
3 |
if defined $signature and $signature->isa("Mail::Message") |
|
157
|
0 |
3 |
defined $signature ? : |
|
170
|
1 |
2 |
if ($body->isMultipart) |
|
172
|
1 |
0 |
if not exists $args{'strip_signature'} or $args{'strip_signature'} |
|
173
|
1 |
0 |
if $body->parts == 1 |
|
177
|
0 |
3 |
unless my $preamble = $args{'preamble'} |
|
180
|
0 |
3 |
if defined $args{'signature'} |
|
191
|
0 |
1 |
unless my $preamble = $args{'preamble'} |
|
195
|
0 |
1 |
if defined $args{'signature'} |
|
206
|
8 |
6 |
defined $subject && length $subject ? : |
|
219
|
1 |
0 |
if defined $from |
|
220
|
1 |
0 |
if defined $to |
|
221
|
1 |
0 |
if defined $cc |
|
222
|
1 |
0 |
if defined $date |