| line |
true |
false |
branch |
|
447
|
1 |
1 |
if @_ |
|
453
|
1 |
1 |
if (@passed) |
|
457
|
0 |
2 |
if ($self->message_from_file) |
|
461
|
0 |
0 |
if (not defined $self->_message_file_access_time or $file ne $self->_message_file or -M $file < $self->_message_file_access_time) |
|
475
|
0 |
0 |
unless open $handle, $file |
|
482
|
0 |
0 |
unless close $handle |
|
489
|
1 |
1 |
if (defined $self->_previous_headers_from_message) |
|
499
|
0 |
2 |
if ($self->headers_from_message and not $self->_extracted_headers_from_message) |
|
512
|
0 |
0 |
if (/:/) { } |
|
|
0 |
0 |
elsif (/^\s+/) { } |
|
513
|
0 |
0 |
if (defined $last_header and defined $last_value) |
|
515
|
0 |
0 |
unless $self->header($last_header, $last_value) |
|
533
|
0 |
0 |
if (defined $last_header and defined $last_value) |
|
535
|
0 |
0 |
unless $self->header($last_header, $last_value) |
|
549
|
0 |
1 |
if ($self->message_from_file and !defined($self->_message_file_access_time) || -M $self->_message_file < $self->_message_file_access_time) { } |
|
891
|
1 |
22 |
unless $self->_Trusting |
|
893
|
23 |
0 |
if (defined $key) { } |
|
894
|
0 |
23 |
if (ref $key eq 'ARRAY') { } |
|
|
0 |
23 |
elsif (@_) { } |
|
|
0 |
23 |
elsif ($key =~ /^[10]$/) { } |
|
911
|
0 |
23 |
defined $self->_Trusting->{$key} ? : |
|
968
|
0 |
8 |
if (@_) { } |
|
988
|
7 |
1 |
if ($self->_banned) { } |
|
1024
|
0 |
1 |
if (@_) { } |
|
1026
|
0 |
0 |
if ($self->Trusting('precedence') or $self->_valid_precedence($precedence)) { } |
|
1058
|
0 |
1 |
if $diffhour > 12 |
|
1059
|
0 |
1 |
if $diffhour < -12 |
|
1106
|
1 |
9 |
if (@_) { } |
|
1108
|
1 |
0 |
if (not defined $email or $self->Trusting('email') or $self->valid_email($email, $allow_groups)) { } |
|
1110
|
1 |
0 |
defined $email ? : |
|
1205
|
0 |
0 |
if $key eq 'server_file' |
|
1206
|
0 |
0 |
unless $self->header($key, $init{$key}) |
|
1210
|
0 |
1 |
if ($class->server_class) |
|
1213
|
0 |
0 |
if $@ |
|
1216
|
0 |
0 |
if $class->server_class and @{$self->servers;} == 0 |
|
1256
|
0 |
0 |
if ($header =~ /^(?:From|To|Sender|Reply-?To|Subject|Precedence)$/) { } |
|
|
0 |
0 |
elsif ($header =~ /^b?cc/i) { } |
|
1264
|
0 |
0 |
if ($header =~ /^[\x21-\x39\x3B-\x7E]+$/) { } |
|
1266
|
0 |
0 |
if (defined $value) { } |
|
1444
|
0 |
8 |
unless $email |
|
1449
|
0 |
8 |
if ($self->Trusting('email')) |
|
1456
|
7 |
1 |
if ($email =~ /^$mailbox$/o) { } |
|
|
0 |
1 |
elsif ($allow_groups and $email =~ /^$group$/o) { } |
|
1505
|
0 |
0 |
if ($self->Trusting('precedence') or defined $value and $value =~ /list|bulk|junk/i) { } |
|
1508
|
0 |
0 |
unless defined $value |
|
1582
|
0 |
2 |
if $self->Trusting('duplicates') |
|
1584
|
2 |
0 |
if (not $self->Trusting('banned')) { } |
|
1624
|
0 |
2 |
if $self->Trusting('duplicates') |
|
1626
|
2 |
0 |
if (not $self->Trusting('banned')) { } |
|
1655
|
0 |
4 |
if $self->banned->{lc $domain} |
|
1657
|
4 |
0 |
if (not $self->Trusting('banned')) { } |
|
1689
|
0 |
1 |
unless $self->servers and @{$self->servers;} |
|
1695
|
1 |
0 |
if $new_idx == 0 |
|
1700
|
0 |
1 |
if ($new_idx == $old_idx and not $self->servers->[$new_idx]->_not_worthless) { } |
|
1705
|
0 |
1 |
if ($self->servers->[$new_idx]->connected) { } |
|
1714
|
1 |
0 |
if ($self->servers->[$new_idx]->connected) |
|
1842
|
2 |
3 |
ref $val ? : |
|
1858
|
0 |
2 |
if $self->Trusting('wrapping') |
|
1861
|
0 |
2 |
$self->force80 ? : |
|
1864
|
1 |
1 |
if $spaceprepend |
|
1871
|
0 |
10 |
if (length $_ > $length) |
|
1878
|
0 |
0 |
$spaceprepend && !$one++ ? : |
|
1886
|
1 |
1 |
if ($noblanks) |
|
1903
|
0 |
0 |
$spaceprepend ? : |
|
1906
|
0 |
0 |
if (not $one) { } |
|
1945
|
0 |
2 |
if ($self->use_envelope and $self->_cached_headers) { } |
|
|
1 |
1 |
elsif ($self->_cached_headers) { } |
|
1964
|
1 |
0 |
if (my $from = $self->From) { } |
|
1971
|
1 |
0 |
if defined $self->Subject and $self->Subject =~ /\S/ |
|
1974
|
0 |
1 |
$self->use_envelope ? : |
|
|
1 |
0 |
if (my $to = $self->use_envelope ? $self->To : '##EMAIL##') { } |
|
1982
|
1 |
0 |
if (defined $sender_hash) |
|
1987
|
1 |
0 |
if (defined $reply_to_hash) |
|
1994
|
0 |
1 |
if ($$headers_hash{'Content-type'}) { } |
|
1998
|
0 |
1 |
if ($self->HTML) { } |
|
2007
|
0 |
0 |
if $key eq 'Content-type' |
|
2010
|
0 |
0 |
unless defined $val and $val =~ /\S/ |
|
2024
|
1 |
0 |
unless ($self->use_envelope) |
|
2059
|
1 |
1 |
if $self->_cached_message and $self->_current_message |
|
2065
|
0 |
1 |
if ref $message |
|
2076
|
1 |
0 |
unless $message =~ /\015\012$/ |
|
2114
|
0 |
3 |
if (my $r = $server->reached_limit) |
|
2117
|
0 |
0 |
if ($self->_waiting_message) |
|
2125
|
0 |
0 |
if ($headers and $message) |
|
2127
|
0 |
0 |
if $rc |
|
2131
|
0 |
0 |
if (defined $extracted_emails) |
|
2146
|
3 |
0 |
unless ref $data |
|
2154
|
0 |
2 |
if ($self->isDuplicate($email)) { } |
|
|
0 |
2 |
elsif (my $b = $self->isBanned($email)) { } |
|
2156
|
0 |
0 |
if $self->BAD |
|
2163
|
0 |
0 |
if $self->BAD |
|
2165
|
0 |
0 |
$b == 2 ? : |
|
2170
|
0 |
2 |
if ($self->use_envelope) { } |
|
2177
|
0 |
0 |
if (not $self->_cached_domain or $self->_cached_domain and $domain ne $self->_cached_domain or $server->reached_envelope_limit) |
|
2180
|
0 |
0 |
if ($self->_waiting_message) |
|
2187
|
0 |
0 |
if ($headers and $message) |
|
2189
|
0 |
0 |
if $rc |
|
2193
|
0 |
0 |
if (defined $extracted_emails) |
|
2202
|
0 |
0 |
unless $server->talk_and_respond('RSET') |
|
2210
|
0 |
0 |
unless $server->talk_and_respond('MAIL FROM:<' . $from . '>') |
|
2224
|
0 |
0 |
unless $server->talk_and_respond('RCPT TO:<' . $email . '>') |
|
2230
|
0 |
0 |
if $self->GOOD |
|
2243
|
0 |
2 |
unless $self->mail($data, $server) |
|
2255
|
0 |
1 |
if ($self->_waiting_message) |
|
2263
|
0 |
0 |
if ($headers and $message) |
|
2265
|
0 |
0 |
if $rc |
|
2269
|
0 |
0 |
if (defined $extracted_emails) |
|
2318
|
0 |
2 |
if (my $b = $self->isBanned($email)) |
|
2320
|
0 |
0 |
if $self->BAD |
|
2322
|
0 |
0 |
$b == 2 ? : |
|
2327
|
0 |
2 |
unless $server->talk_and_respond('RSET') |
|
2336
|
0 |
2 |
unless $server->talk_and_respond('MAIL FROM:<' . $from . '>') |
|
2340
|
0 |
2 |
unless $server->talk_and_respond('RCPT TO:<' . $email . '>') |
|
2349
|
0 |
2 |
unless $server->talk_and_respond('DATA') |
|
2352
|
0 |
2 |
unless $server->talk_and_respond($$headers . $$message) |
|
2355
|
2 |
0 |
if $self->GOOD |