| line |
true |
false |
branch |
|
28
|
22 |
10 |
defined $based ? : |
|
33
|
29 |
4 |
if ($args->{'parts'}) |
|
35
|
0 |
50 |
unless defined $raw |
|
38
|
0 |
50 |
unless defined $cooked |
|
46
|
0 |
33 |
if defined $preamble and not ref $preamble |
|
50
|
0 |
33 |
if defined $epilogue and not ref $epilogue |
|
53
|
22 |
11 |
if ($based) { } |
|
56
|
3 |
19 |
defined $preamble ? : |
|
60
|
1 |
2 |
!$args->{'parts'} && $based->isMultipart ? : |
|
|
19 |
3 |
@parts ? : |
|
65
|
3 |
19 |
defined $epilogue ? : |
|
92
|
1 |
1 |
$preamble ? : |
|
|
1 |
1 |
$epilogue ? : |
|
101
|
1 |
19 |
if (my $preamble = $self->preamble) |
|
103
|
1 |
0 |
if $preamble->endsOnNewline |
|
108
|
27 |
2 |
if $part->body->endsOnNewline |
|
111
|
1 |
19 |
if (my $epilogue = $self->epilogue) |
|
123
|
4 |
20 |
if (my $preamble = $self->preamble) { } |
|
128
|
1 |
23 |
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 |
1 |
if ($head->get('Content-Transfer-Encoding') || '') =~ /(\w+)/ |
|
259
|
1 |
1 |
unless $preamble->nrLines |
|
262
|
1 |
1 |
if defined $preamble |
|
269
|
2 |
4 |
if $sep eq "--$boundary--\n" |
|
276
|
0 |
4 |
unless $part->readFromParser($parser, $bodytype) |
|
277
|
4 |
0 |
if $part->head->names or $part->body->size |
|
288
|
0 |
0 |
defined $preamble ? : |
|
|
0 |
0 |
@parts ? : |
|
|
2 |
0 |
defined $epilogue ? : |
|
294
|
2 |
0 |
unless $epilogue->nrLines |
|
297
|
0 |
2 |
if defined $epilogue |
|
311
|
1 |
17 |
if (my $preamble = $self->preamble) |
|
313
|
0 |
1 |
unless $preamble == $new_preamble |
|
317
|
1 |
17 |
if (my $epilogue = $self->epilogue) |
|
319
|
1 |
0 |
unless $epilogue == $new_epilogue |
|
327
|
13 |
15 |
if $new_body != $part_body |
|
331
|
9 |
9 |
unless $changes |
|
373
|
0 |
1 |
@allparts == @parts ? : |
|
388
|
64 |
83 |
unless @_ |
|
397
|
0 |
0 |
ref $what eq 'CODE' ? : |
|
|
83 |
0 |
$what eq 'ACTIVE' ? : |
|
|
0 |
83 |
$what eq 'DELETED' ? : |
|
|
0 |
83 |
$what eq 'ALL' ? : |
|
|
0 |
83 |
$what eq 'RECURSE' ? : |
|
408
|
0 |
6 |
unless ($msg) |
|
412
|
0 |
6 |
$msg->isa('Mail::Message::Part') ? : |
|
414
|
6 |
6 |
if $parts[$partnr] == $part |
|
426
|
62 |
34 |
unless (@_) |
|
428
|
62 |
0 |
if defined $boundary |
|
431
|
24 |
10 |
@_ && defined $_[0] ? : |
|
437
|
0 |
0 |
$msg ? : |