| line |
true |
false |
branch |
|
33
|
0 |
0 |
unless $self->SUPER::init($args) |
|
42
|
0 |
0 |
unless $self->socket |
|
58
|
0 |
0 |
unless $self->socket |
|
59
|
0 |
0 |
wantarray ? : |
|
66
|
0 |
0 |
if wantarray |
|
78
|
0 |
0 |
unless $uidl |
|
81
|
0 |
0 |
unless my $socket = $self->socket |
|
82
|
0 |
0 |
unless my $n = $self->id2n($uidl) |
|
90
|
0 |
0 |
unless $uidl |
|
92
|
0 |
0 |
unless my $socket = $self->socket |
|
93
|
0 |
0 |
unless my $n = $self->id2n($uidl) |
|
96
|
0 |
0 |
unless $message |
|
99
|
0 |
0 |
if @$message and $message->[-1] =~ /^[\012\015]*$/ |
|
102
|
0 |
0 |
unless exists $self->{'MTP_nouidl'} |
|
110
|
0 |
0 |
unless $uidl |
|
113
|
0 |
0 |
unless ($list = $self->{'MTP_n2length'}) |
|
114
|
0 |
0 |
unless my $socket = $self->socket |
|
115
|
0 |
0 |
unless my $raw = $self->sendList($socket, "LIST$Mail::Transport::POP3::CRLF") |
|
124
|
0 |
0 |
unless my $n = $self->id2n($uidl) |
|
131
|
0 |
0 |
shift() ? : |
|
145
|
0 |
0 |
if ($self->{'MTP_socket'}) |
|
146
|
0 |
0 |
if (my $socket = $self->socket) |
|
149
|
0 |
0 |
unless my $n = $self->id2n($uidl) |
|
150
|
0 |
0 |
unless $self->send($socket, "DELE $n$Mail::Transport::POP3::CRLF") |
|
173
|
0 |
0 |
if exists $self->{'MTP_nouidl'} |
|
188
|
0 |
0 |
if defined $socket |
|
190
|
0 |
0 |
if (exists $self->{'MTP_nouidl'}) |
|
197
|
0 |
0 |
unless $socket = $self->login |
|
198
|
0 |
0 |
unless $self->status($socket) |
|
209
|
0 |
0 |
if (eval {
do {
print $socket @_
}
}) { } |
|
211
|
0 |
0 |
unless defined $response |
|
224
|
0 |
0 |
unless $response and &_OK($response) |
|
228
|
0 |
0 |
if $line =~ /^\.\r?\n/s |
|
239
|
0 |
0 |
if $self->{'MTP_socket'} |
|
246
|
0 |
0 |
unless defined $socket |
|
250
|
0 |
0 |
if ($@ or not readline $socket) |
|
266
|
0 |
0 |
unless ($username and $password) |
|
272
|
0 |
0 |
if ($self->useSSL) { } |
|
280
|
0 |
0 |
unless ($socket) |
|
290
|
0 |
0 |
unless (&_OK($welcome)) |
|
297
|
0 |
0 |
if ($authenticate eq "AUTO" or $authenticate eq "APOP") |
|
298
|
0 |
0 |
if ($welcome =~ /^\+OK .*(<\d+\.\d+\@[^>]+>)/) |
|
307
|
0 |
0 |
unless ($connected) |
|
308
|
0 |
0 |
if ($authenticate eq "AUTO" or $authenticate eq "LOGIN") |
|
309
|
0 |
0 |
unless my $response = $self->send($socket, "USER $username$Mail::Transport::POP3::CRLF") |
|
312
|
0 |
0 |
if (&_OK($response)) |
|
313
|
0 |
0 |
unless my $response2 = $self->send($socket, "PASS $password$Mail::Transport::POP3::CRLF") |
|
321
|
0 |
0 |
if (not $connected and $authenticate =~ /^OAUTH2/) |
|
326
|
0 |
0 |
if ($authenticate eq 'OAUTH2_SEP') { } |
|
329
|
0 |
0 |
unless my $response = $self->send($socket, "AUTH XOAUTH2$Mail::Transport::POP3::CRLF") |
|
332
|
0 |
0 |
if ($response =~ /^\+/) |
|
333
|
0 |
0 |
unless my $response2 = $self->send($socket, "$token$Mail::Transport::POP3::CRLF") |
|
339
|
0 |
0 |
unless my $response = $self->send($socket, "AUTH XOAUTH2 $token$Mail::Transport::POP3::CRLF") |
|
347
|
0 |
0 |
unless ($connected) |
|
348
|
0 |
0 |
$authenticate eq 'AUTO' ? : |
|
364
|
0 |
0 |
unless my $stat = $self->send($socket, "STAT$Mail::Transport::POP3::CRLF") |
|
365
|
0 |
0 |
unless ($stat =~ /^\+OK (\d+) (\d+)/) |
|
376
|
0 |
0 |
unless my $uidl = $self->send($socket, "UIDL$Mail::Transport::POP3::CRLF") |
|
380
|
0 |
0 |
if (&_OK($uidl)) { } |
|
385
|
0 |
0 |
if substr($line, 0, 1) eq "." |
|
386
|
0 |
0 |
unless $line =~ /^(\d+) (.+?)\r?\n/ |
|
397
|
0 |
0 |
unless my $list = $self->send($socket, "LIST$Mail::Transport::POP3::CRLF") |
|
400
|
0 |
0 |
if (&_OK($list)) |
|
405
|
0 |
0 |
if substr($line, 0, 1) eq "." |
|
406
|
0 |
0 |
unless $line =~ /^(\d+) (\d+)/ |
|
429
|
0 |
0 |
$self->useSSL ? : |