| line |
true |
false |
branch |
|
30
|
0 |
0 |
unless $self->SUPER::init($args) |
|
34
|
0 |
0 |
unless $self->socket |
|
47
|
0 |
0 |
unless $self->socket |
|
48
|
0 |
0 |
wantarray ? : |
|
55
|
0 |
0 |
if wantarray |
|
67
|
0 |
0 |
unless $uidl |
|
70
|
0 |
0 |
unless my $socket = $self->socket |
|
71
|
0 |
0 |
unless my $n = $self->id2n($uidl) |
|
79
|
0 |
0 |
unless $uidl |
|
81
|
0 |
0 |
unless my $socket = $self->socket |
|
82
|
0 |
0 |
unless my $n = $self->id2n($uidl) |
|
85
|
0 |
0 |
unless $message |
|
88
|
0 |
0 |
if @$message and $message->[-1] =~ /^[\012\015]*$/ |
|
91
|
0 |
0 |
unless exists $self->{'MTP_nouidl'} |
|
99
|
0 |
0 |
unless $uidl |
|
102
|
0 |
0 |
unless ($list = $self->{'MTP_n2length'}) |
|
103
|
0 |
0 |
unless my $socket = $self->socket |
|
104
|
0 |
0 |
unless my $raw = $self->sendList($socket, "LIST$Mail::Transport::POP3::CRLF") |
|
113
|
0 |
0 |
unless my $n = $self->id2n($uidl) |
|
120
|
0 |
0 |
shift() ? : |
|
134
|
0 |
0 |
if ($self->{'MTP_socket'}) |
|
135
|
0 |
0 |
if (my $socket = $self->socket) |
|
138
|
0 |
0 |
unless my $n = $self->id2n($uidl) |
|
139
|
0 |
0 |
unless $self->send($socket, "DELE $n$Mail::Transport::POP3::CRLF") |
|
162
|
0 |
0 |
if exists $self->{'MTP_nouidl'} |
|
177
|
0 |
0 |
if defined $socket |
|
179
|
0 |
0 |
if (exists $self->{'MTP_nouidl'}) |
|
186
|
0 |
0 |
unless $socket = $self->login |
|
187
|
0 |
0 |
unless $self->status($socket) |
|
198
|
0 |
0 |
if (eval {
do {
print $socket @_
}
}) { } |
|
200
|
0 |
0 |
unless defined $response |
|
213
|
0 |
0 |
unless $response and &_OK($response) |
|
217
|
0 |
0 |
if $line =~ /^\.\r?\n/s |
|
228
|
0 |
0 |
if $self->{'MTP_socket'} |
|
235
|
0 |
0 |
unless defined $socket |
|
239
|
0 |
0 |
if ($@ or not readline $socket) |
|
255
|
0 |
0 |
unless ($username and $password) |
|
260
|
0 |
0 |
$self->useSSL ? : |
|
261
|
0 |
0 |
unless eval "require $net" |
|
264
|
0 |
0 |
unless ($socket) |
|
274
|
0 |
0 |
unless (&_OK($welcome)) |
|
281
|
0 |
0 |
if ($authenticate eq 'AUTO' or $authenticate eq 'APOP') |
|
282
|
0 |
0 |
if ($welcome =~ /^\+OK .*(<\d+\.\d+\@[^>]+>)/) |
|
291
|
0 |
0 |
unless ($connected) |
|
292
|
0 |
0 |
if ($authenticate eq 'AUTO' or $authenticate eq 'LOGIN') |
|
293
|
0 |
0 |
unless my $response = $self->send($socket, "USER $username$Mail::Transport::POP3::CRLF") |
|
296
|
0 |
0 |
if (&_OK($response)) |
|
297
|
0 |
0 |
unless my $response2 = $self->send($socket, "PASS $password$Mail::Transport::POP3::CRLF") |
|
305
|
0 |
0 |
unless ($connected) |
|
306
|
0 |
0 |
$authenticate eq 'AUTO' ? : |
|
322
|
0 |
0 |
unless my $stat = $self->send($socket, "STAT$Mail::Transport::POP3::CRLF") |
|
323
|
0 |
0 |
unless ($stat =~ /^\+OK (\d+) (\d+)/) |
|
334
|
0 |
0 |
unless my $uidl = $self->send($socket, "UIDL$Mail::Transport::POP3::CRLF") |
|
338
|
0 |
0 |
if (&_OK($uidl)) { } |
|
343
|
0 |
0 |
if substr($line, 0, 1) eq '.' |
|
344
|
0 |
0 |
unless $line =~ /^(\d+) (.+?)\r?\n/ |
|
355
|
0 |
0 |
unless my $list = $self->send($socket, "LIST$Mail::Transport::POP3::CRLF") |
|
358
|
0 |
0 |
if (&_OK($list)) |
|
363
|
0 |
0 |
if substr($line, 0, 1) eq '.' |
|
364
|
0 |
0 |
unless $line =~ /^(\d+) (\d+)/ |
|
387
|
0 |
0 |
$self->useSSL ? : |