| line |
true |
false |
branch |
|
28
|
0 |
0 |
unless $self->SUPER::init($args) |
|
32
|
0 |
0 |
unless $self->socket |
|
42
|
0 |
0 |
unless $self->socket |
|
43
|
0 |
0 |
wantarray ? : |
|
52
|
0 |
0 |
if wantarray |
|
64
|
0 |
0 |
unless $uidl |
|
67
|
0 |
0 |
unless my $socket = $self->socket |
|
68
|
0 |
0 |
unless my $n = $self->id2n($uidl) |
|
76
|
0 |
0 |
unless $uidl |
|
78
|
0 |
0 |
unless my $socket = $self->socket |
|
79
|
0 |
0 |
unless my $n = $self->id2n($uidl) |
|
82
|
0 |
0 |
unless $message |
|
85
|
0 |
0 |
if @$message and $message->[-1] =~ /^[\012\015]*$/ |
|
88
|
0 |
0 |
unless exists $self->{'MTP_nouidl'} |
|
96
|
0 |
0 |
unless $uidl |
|
99
|
0 |
0 |
unless ($list = $self->{'MTP_n2length'}) |
|
100
|
0 |
0 |
unless my $socket = $self->socket |
|
101
|
0 |
0 |
unless my $raw = $self->sendList($socket, "LIST$Mail::Transport::POP3::CRLF") |
|
110
|
0 |
0 |
unless my $n = $self->id2n($uidl) |
|
117
|
0 |
0 |
shift() ? : |
|
131
|
0 |
0 |
if ($self->{'MTP_socket'}) |
|
132
|
0 |
0 |
if (my $socket = $self->socket) |
|
135
|
0 |
0 |
unless my $n = $self->id2n($uidl) |
|
136
|
0 |
0 |
unless $self->send($socket, "DELE $n$Mail::Transport::POP3::CRLF") |
|
159
|
0 |
0 |
if exists $self->{'MTP_nouidl'} |
|
173
|
0 |
0 |
if defined $socket |
|
175
|
0 |
0 |
if (exists $self->{'MTP_nouidl'}) |
|
181
|
0 |
0 |
unless $socket = $self->login |
|
182
|
0 |
0 |
unless $self->status($socket) |
|
195
|
0 |
0 |
if (eval {
do {
print $socket @_
}
}) { } |
|
197
|
0 |
0 |
unless defined $response |
|
210
|
0 |
0 |
unless my $response = $self->send($socket, @_) |
|
212
|
0 |
0 |
unless &OK($response) |
|
217
|
0 |
0 |
if /^\.\r?\n/s |
|
228
|
0 |
0 |
if $self->{'MTP_socket'} |
|
237
|
0 |
0 |
unless defined $socket |
|
241
|
0 |
0 |
if ($@ or not readline $socket) |
|
258
|
0 |
0 |
unless ($username and $password) |
|
263
|
0 |
0 |
$self->{'MTP_ssl'} ? : |
|
264
|
0 |
0 |
unless eval "require $net" |
|
267
|
0 |
0 |
unless ($socket) |
|
277
|
0 |
0 |
unless (&OK($welcome)) |
|
285
|
0 |
0 |
if ($authenticate eq 'AUTO' or $authenticate eq 'APOP') |
|
286
|
0 |
0 |
if ($welcome =~ /^\+OK .*(<\d+\.\d+\@[^>]+>)/) |
|
289
|
0 |
0 |
if $response |
|
295
|
0 |
0 |
unless ($connected) |
|
296
|
0 |
0 |
if ($authenticate eq 'AUTO' or $authenticate eq 'LOGIN') |
|
297
|
0 |
0 |
unless my $response = $self->send($socket, "USER $username$Mail::Transport::POP3::CRLF") |
|
300
|
0 |
0 |
if (&OK($response)) |
|
301
|
0 |
0 |
unless $response = $self->send($socket, "PASS $password$Mail::Transport::POP3::CRLF") |
|
310
|
0 |
0 |
unless ($connected) |
|
311
|
0 |
0 |
$authenticate eq 'AUTO' ? : |
|
328
|
0 |
0 |
unless my $stat = $self->send($socket, "STAT$Mail::Transport::POP3::CRLF") |
|
329
|
0 |
0 |
if ($stat =~ /^\+OK (\d+) (\d+)/) { } |
|
341
|
0 |
0 |
unless my $uidl = $self->send($socket, "UIDL$Mail::Transport::POP3::CRLF") |
|
344
|
0 |
0 |
if (&OK($uidl)) { } |
|
350
|
0 |
0 |
if substr($_, 0, 1) eq '.' |
|
352
|
0 |
0 |
if /^(\d+) (.+)/ |
|
364
|
0 |
0 |
unless my $list = $self->send($socket, "LIST$Mail::Transport::POP3::CRLF") |
|
367
|
0 |
0 |
if (&OK($list)) |
|
372
|
0 |
0 |
if substr($_, 0, 1) eq '.' |