| line |
true |
false |
branch |
|
39
|
0 |
0 |
unless $self->SUPER::init($args) |
|
48
|
0 |
0 |
unless $self->socket |
|
63
|
0 |
0 |
unless $self->socket |
|
64
|
0 |
0 |
if (wantarray) { } |
|
72
|
0 |
0 |
unless wantarray |
|
83
|
0 |
0 |
unless $uidl |
|
86
|
0 |
0 |
unless my $socket = $self->socket |
|
87
|
0 |
0 |
unless my $n = $self->id2n($uidl) |
|
95
|
0 |
0 |
unless $uidl |
|
97
|
0 |
0 |
unless my $socket = $self->socket |
|
98
|
0 |
0 |
unless my $n = $self->id2n($uidl) |
|
99
|
0 |
0 |
unless my $message = $self->sendList($socket, "RETR $n$Mail::Transport::POP3::CRLF") |
|
102
|
0 |
0 |
if @$message and $message->[-1] =~ /^[\012\015]*$/ |
|
105
|
0 |
0 |
unless exists $self->{'MTP_nouidl'} |
|
113
|
0 |
0 |
unless $uidl |
|
116
|
0 |
0 |
unless ($list = $self->{'MTP_n2length'}) |
|
117
|
0 |
0 |
unless my $socket = $self->socket |
|
118
|
0 |
0 |
unless my $raw = $self->sendList($socket, "LIST$Mail::Transport::POP3::CRLF") |
|
127
|
0 |
0 |
unless my $n = $self->id2n($uidl) |
|
134
|
0 |
0 |
shift() ? : |
|
148
|
0 |
0 |
if ($self->{'MTP_socket'}) |
|
149
|
0 |
0 |
if (my $socket = $self->socket) |
|
152
|
0 |
0 |
unless my $n = $self->id2n($uidl) |
|
153
|
0 |
0 |
unless $self->send($socket, "DELE $n$Mail::Transport::POP3::CRLF") |
|
168
|
0 |
0 |
if exists $self->{'MTP_nouidl'} |
|
182
|
0 |
0 |
if defined $socket |
|
185
|
0 |
0 |
unless exists $self->{'MTP_nouidl'} |
|
188
|
0 |
0 |
unless $socket = $self->login |
|
189
|
0 |
0 |
unless $self->status($socket) |
|
200
|
0 |
0 |
if (eval {
do {
print $socket @_
}
}) { } |
|
202
|
0 |
0 |
unless defined $response |
|
214
|
0 |
0 |
unless $response and &_OK($response) |
|
218
|
0 |
0 |
if $line =~ /^\.\r?\n/s |
|
229
|
0 |
0 |
if $self->{'MTP_socket'} |
|
238
|
0 |
0 |
if ($@ or not readline $socket) |
|
254
|
0 |
0 |
unless $username and $password |
|
258
|
0 |
0 |
if ($self->useSSL) { } |
|
266
|
0 |
0 |
unless $socket |
|
274
|
0 |
0 |
unless &_OK($welcome) |
|
278
|
0 |
0 |
if ($authenticate eq "AUTO" or $authenticate eq "APOP") |
|
279
|
0 |
0 |
if ($welcome =~ /^\+OK .*(<\d+\.\d+\@[^>]+>)/) |
|
288
|
0 |
0 |
unless ($connected) |
|
289
|
0 |
0 |
if ($authenticate eq "AUTO" or $authenticate eq "LOGIN") |
|
290
|
0 |
0 |
unless my $response = $self->send($socket, "USER $username$Mail::Transport::POP3::CRLF") |
|
292
|
0 |
0 |
if (&_OK($response)) |
|
293
|
0 |
0 |
unless my $response2 = $self->send($socket, "PASS $password$Mail::Transport::POP3::CRLF") |
|
300
|
0 |
0 |
if (not $connected and $authenticate =~ /^OAUTH2/) |
|
305
|
0 |
0 |
if ($authenticate eq 'OAUTH2_SEP') { } |
|
308
|
0 |
0 |
unless my $response = $self->send($socket, "AUTH XOAUTH2$Mail::Transport::POP3::CRLF") |
|
310
|
0 |
0 |
if ($response =~ /^\+/) |
|
311
|
0 |
0 |
unless my $response2 = $self->send($socket, "$token$Mail::Transport::POP3::CRLF") |
|
316
|
0 |
0 |
unless my $response = $self->send($socket, "AUTH XOAUTH2 $token$Mail::Transport::POP3::CRLF") |
|
322
|
0 |
0 |
unless ($connected) |
|
323
|
0 |
0 |
$authenticate eq 'AUTO' ? : |
|
338
|
0 |
0 |
unless my $stat = $self->send($socket, "STAT$Mail::Transport::POP3::CRLF") |
|
339
|
0 |
0 |
unless ($stat =~ /^\+OK (\d+) (\d+)/) |
|
350
|
0 |
0 |
unless my $uidl = $self->send($socket, "UIDL$Mail::Transport::POP3::CRLF") |
|
354
|
0 |
0 |
if (&_OK($uidl)) { } |
|
359
|
0 |
0 |
if substr($line, 0, 1) eq "." |
|
360
|
0 |
0 |
unless $line =~ /^(\d+) (.+?)\r?\n/ |
|
371
|
0 |
0 |
unless my $list = $self->send($socket, "LIST$Mail::Transport::POP3::CRLF") |
|
374
|
0 |
0 |
if (&_OK($list)) |
|
379
|
0 |
0 |
if substr($line, 0, 1) eq "." |
|
380
|
0 |
0 |
unless $line =~ /^(\d+) (\d+)/ |
|
402
|
0 |
0 |
$self->useSSL ? : |