| line |
true |
false |
branch |
|
49
|
130 |
47 |
if (defined($head = $args->{'head'})) { } |
|
|
0 |
47 |
elsif (my $msgid = $args->{'messageId'} || $args->{'messageID'}) { } |
|
55
|
14 |
163 |
if (my $body = $args->{'body'}) |
|
60
|
0 |
177 |
if defined $args->{'body_type'} |
|
61
|
31 |
146 |
if defined $args->{'head_type'} |
|
62
|
0 |
177 |
if defined $args->{'field_type'} |
|
65
|
177 |
0 |
ref $labels eq 'ARRAY' ? : |
|
66
|
0 |
177 |
if exists $args->{'deleted'} |
|
81
|
13 |
0 |
unless $args{'shallow'} or $args{'shallow_head'} |
|
82
|
13 |
0 |
unless $args{'shallow'} or $args{'shallow_body'} |
|
97
|
0 |
77 |
unless $_[0]{'MM_message_id'} |
|
110
|
0 |
5 |
$cont ? : |
|
129
|
35 |
0 |
if $body |
|
132
|
0 |
35 |
unless ref $self ne __PACKAGE__ or $body->endsOnNewline |
|
156
|
0 |
0 |
if ref $_[0] and $_[0]->isa("Mail::Transport::Send") |
|
160
|
0 |
0 |
if (not $args{'via'} and defined $default_mailer) { } |
|
181
|
1204 |
204 |
unless @_ |
|
184
|
0 |
204 |
unless (defined $head) |
|
188
|
0 |
204 |
unless builtin::blessed($head) and $head->isa("Mail::Message::Head") |
|
192
|
0 |
204 |
if (my $old = $self->{'MM_head'}) |
|
193
|
0 |
0 |
unless $old->isDelayed |
|
197
|
204 |
0 |
unless $head->isDelayed |
|
204
|
155 |
99 |
unless my $field = $self->head->get(shift()) |
|
210
|
0 |
0 |
unless my $head = (shift())->head |
|
216
|
0 |
0 |
unless my(@from) = (shift())->head->get("From") |
|
224
|
0 |
0 |
$sender ? : |
|
252
|
2 |
0 |
unless $head->recvstamp |
|
265
|
501 |
87 |
unless @_ |
|
268
|
87 |
0 |
if defined $head |
|
271
|
0 |
87 |
unless (defined $rawbody) |
|
274
|
0 |
0 |
if defined $body |
|
277
|
0 |
87 |
unless builtin::blessed($rawbody) and $rawbody->isa("Mail::Message::Body") |
|
283
|
46 |
41 |
$self->isPart ? : |
|
287
|
0 |
87 |
if defined $oldbody and $body == $oldbody |
|
290
|
0 |
87 |
if defined $oldbody |
|
298
|
2 |
0 |
$body ? : |
|
304
|
0 |
0 |
$body ? : |
|
316
|
1 |
0 |
defined $head ? : |
|
318
|
1 |
0 |
length $ct ? : |
|
330
|
0 |
26 |
$recurse ? : |
|
|
26 |
0 |
$body->isMultipart ? : |
|
|
2 |
26 |
$body->isNested ? : |
|
334
|
0 |
0 |
$recurse ? : |
|
|
0 |
0 |
$what eq 'ALL' ? : |
|
|
0 |
0 |
$what eq 'DELETED' ? : |
|
|
28 |
0 |
$what eq 'ACTIVE' ? : |
|
|
0 |
28 |
if (ref $what eq 'CODE') { } |
|
346
|
0 |
0 |
unless @_ |
|
351
|
0 |
0 |
if $head |
|
354
|
0 |
0 |
if $body |
|
362
|
0 |
22 |
if $self->{'MM_modified'} |
|
365
|
0 |
22 |
if ($head and $head->isModified) |
|
371
|
0 |
22 |
if ($body and $body->isModified) |
|
382
|
285 |
35 |
unless @_ > 1 |
|
392
|
0 |
13 |
if (wantarray) { } |
|
402
|
4 |
0 |
unless $old |
|
408
|
2 |
0 |
@_ ? : |
|
419
|
0 |
0 |
$labels->{'old'} ? : |
|
|
0 |
0 |
$labels->{'seen'} ? : |
|
422
|
0 |
0 |
$labels->{'replied'} ? : |
|
|
0 |
0 |
$labels->{'flagged'} ? : |
|
424
|
0 |
0 |
if $newstatus ne $status |
|
425
|
0 |
0 |
if $newxstatus ne $xstatus |
|
435
|
15 |
14 |
if (my $status = $head->get("status")) |
|
440
|
1 |
28 |
if (my $xstatus = $head->get("x-status")) |
|
457
|
0 |
13 |
unless builtin::blessed($message) |
|
460
|
0 |
13 |
if ref $message eq $class |
|
463
|
13 |
0 |
if ($message->isa(__PACKAGE__)) |
|
469
|
0 |
0 |
if ($message->isa('MIME::Entity')) { } |
|
|
0 |
0 |
elsif ($message->isa('Mail::Internet')) { } |
|
|
0 |
0 |
elsif ($message->isa('Email::Simple')) { } |
|
|
0 |
0 |
elsif ($message->isa('Email::Abstract')) { } |
|
470
|
0 |
0 |
unless ($mime_entity_converter) |
|
472
|
0 |
0 |
if $@ |
|
476
|
0 |
0 |
unless $message = $mime_entity_converter->from($message) |
|
481
|
0 |
0 |
unless ($mail_internet_converter) |
|
483
|
0 |
0 |
if $@ |
|
487
|
0 |
0 |
unless $message = $mail_internet_converter->from($message) |
|
492
|
0 |
0 |
unless ($email_simple_converter) |
|
494
|
0 |
0 |
if $@ |
|
498
|
0 |
0 |
unless $message = $email_simple_converter->from($message) |
|
528
|
0 |
45 |
unless my $body = $self->readBody($parser, $head, $bodytype) |
|
548
|
38 |
36 |
ref $getbodytype ? : |
|
|
0 |
74 |
!$getbodytype ? : |
|
553
|
0 |
74 |
if ($bodytype->isDelayed) { } |
|
559
|
60 |
14 |
defined $ct ? : |
|
562
|
16 |
58 |
if (substr($type, 0, 10) eq 'multipart/' and not $bodytype->isMultipart) { } |
|
|
2 |
56 |
elsif ($type eq 'message/rfc822') { } |
|
570
|
1 |
1 |
if $enc =~ /^(?:none|7bit|8bit|binary)$/i and not $bodytype->isNested |
|
594
|
0 |
0 |
unless not $body |
|
602
|
73 |
145 |
if ($msgid =~ /\<([^>]*)\>/s) |
|
615
|
0 |
0 |
$size < 10000000 ? : |
|
|
0 |
0 |
$size < 1000000 ? : |
|
|
0 |
0 |
$size < 10000 ? : |
|
|
0 |
0 |
$size < 1000 ? : |
|
|
0 |
0 |
if (not defined $size) { } |