| line |
true |
false |
branch |
|
28
|
24 |
15 |
defined $based ? : |
|
33
|
31 |
9 |
if ($args->{'parts'}) |
|
35
|
0 |
54 |
unless defined $raw |
|
38
|
0 |
54 |
unless defined $cooked |
|
46
|
0 |
40 |
if defined $preamble and not ref $preamble |
|
50
|
0 |
40 |
if defined $epilogue and not ref $epilogue |
|
53
|
24 |
16 |
if ($based) { } |
|
56
|
5 |
19 |
defined $preamble ? : |
|
60
|
1 |
2 |
!$args->{'parts'} && $based->isMultipart ? : |
|
|
21 |
3 |
@parts ? : |
|
65
|
5 |
19 |
defined $epilogue ? : |
|
92
|
2 |
1 |
$preamble ? : |
|
|
2 |
1 |
$epilogue ? : |
|
101
|
3 |
19 |
if (my $preamble = $self->preamble) |
|
103
|
3 |
0 |
if $preamble->endsOnNewline |
|
108
|
31 |
2 |
if $part->body->endsOnNewline |
|
111
|
3 |
19 |
if (my $epilogue = $self->epilogue) |
|
123
|
6 |
20 |
if (my $preamble = $self->preamble) { } |
|
128
|
7 |
19 |
if (my $epilogue = $self->epilogue) |
|
143
|
0 |
4 |
if $preamble |
|
147
|
4 |
4 |
if (not @lines) { } |
|
|
4 |
0 |
elsif ($lines[-1] =~ /\n$/) { } |
|
153
|
0 |
4 |
if (not @lines) { } |
|
|
4 |
0 |
elsif ($lines[-1] =~ /\n$/) { } |
|
158
|
0 |
4 |
if (my $epilogue = $self->epilogue) |
|
163
|
4 |
0 |
wantarray ? : |
|
181
|
2 |
6 |
if (my $preamble = $self->preamble) |
|
186
|
0 |
8 |
if (ref $out eq 'GLOB') { } |
|
188
|
0 |
0 |
if $count++ |
|
192
|
0 |
0 |
if $count++ |
|
197
|
9 |
4 |
if $count++ |
|
201
|
6 |
2 |
if $count++ |
|
205
|
2 |
6 |
if (my $epilogue = $self->epilogue) |
|
244
|
1 |
6 |
if ($head->get('Content-Transfer-Encoding') || '') =~ /(\w+)/ |
|
259
|
6 |
1 |
unless $preamble->nrLines |
|
262
|
1 |
6 |
if defined $preamble |
|
269
|
7 |
13 |
if ($sep =~ /--\Q$boundary\E--[ \t]*\n?/) |
|
283
|
0 |
13 |
unless $part->readFromParser($parser, $bodytype) |
|
284
|
13 |
0 |
if $part->head->names or $part->body->size |
|
295
|
0 |
0 |
defined $preamble ? : |
|
|
0 |
0 |
@parts ? : |
|
|
7 |
0 |
defined $epilogue ? : |
|
301
|
1 |
6 |
unless $has_epilogue or $epilogue->nrLines |
|
304
|
6 |
1 |
if defined $epilogue |
|
318
|
2 |
17 |
if (my $preamble = $self->preamble) |
|
320
|
1 |
1 |
unless $preamble == $new_preamble |
|
324
|
2 |
17 |
if (my $epilogue = $self->epilogue) |
|
326
|
1 |
1 |
unless $epilogue == $new_epilogue |
|
334
|
13 |
17 |
if $new_body != $part_body |
|
338
|
9 |
10 |
unless $changes |
|
380
|
0 |
1 |
@allparts == @parts ? : |
|
395
|
66 |
91 |
unless @_ |
|
404
|
0 |
0 |
ref $what eq 'CODE' ? : |
|
|
91 |
0 |
$what eq 'ACTIVE' ? : |
|
|
0 |
91 |
$what eq 'DELETED' ? : |
|
|
0 |
91 |
$what eq 'ALL' ? : |
|
|
0 |
91 |
$what eq 'RECURSE' ? : |
|
414
|
0 |
8 |
unless ($msg) |
|
419
|
2 |
6 |
$msg->isa('Mail::Message::Part') ? : |
|
423
|
8 |
7 |
if $parts[$partnr] == $part |
|
435
|
71 |
41 |
unless (@_) |
|
437
|
71 |
0 |
if defined $boundary |
|
440
|
26 |
15 |
@_ && defined $_[0] ? : |
|
446
|
0 |
0 |
$msg ? : |