Lines Matching full:me
113 my $me = shift;
114 ${*$me}{'net_pop3_host'};
118 ## We don't want people sending me their passwords when they report problems
128 my ($me, $user, $pass) = @_;
131 ($user, $pass) = $me->_lookup_credentials($user);
134 $me->user($user)
135 and $me->pass($pass);
151 my ($me, $user, $pass) = @_;
167 unless ($banner = (${*$me}{'net_pop3_banner'} =~ /(<.*>)/)[0]);
170 ($user, $pass) = $me->_lookup_credentials($user);
176 unless ($me->_APOP($user, $md->hexdigest));
178 $me->_get_mailbox_count();
191 my ($me, $pass) = @_;
194 unless ($me->_PASS($pass));
196 $me->_get_mailbox_count();
203 my $me = shift;
206 unless ($me->_RSET);
208 if (defined ${*$me}{'net_pop3_mail'}) {
210 foreach (@{${*$me}{'net_pop3_mail'}}) {
229 my $me = shift;
232 unless $me->_TOP($_[0], $_[1] || 0);
234 $me->read_until_dot;
240 my $me = shift;
243 unless $me->_STAT && $me->message =~ /(\d+)\D+(\d+)/;
251 my $me = shift;
254 unless $me->_LIST(@_);
257 $me->message =~ /\d+\D+(\d+)/;
261 my $info = $me->read_until_dot
272 my $me = shift;
275 unless $me->_RETR(shift);
277 $me->read_until_dot(@_);
283 my $me = shift;
285 return unless $me->_RETR(shift);
286 return $me->tied_fh;
292 my $me = shift;
293 return 0 unless $me->_DELE(@_);
294 ${*$me}{'net_pop3_deleted'} = 1;
300 my $me = shift;
303 $me->_UIDL(@_)
306 $uidl = ($me->message =~ /\d+\s+([\041-\176]+)/)[0];
309 my $ref = $me->read_until_dot
323 my $me = shift;
325 return () unless $me->_PING(@_) && $me->message =~ /(\d+)\D+(\d+)/;
332 my ($me, $user) = @_;
341 my $m = Net::Netrc->lookup(${*$me}{'net_pop3_host'}, $user);
342 $m ||= Net::Netrc->lookup(${*$me}{'net_pop3_host'});
353 my ($me) = @_;
354 my $ret = ${*$me}{'net_pop3_count'} =
355 ($me->message =~ /(\d+)\s+message/io) ? $1 : ($me->popstat)[0];
381 my $me = shift;
383 $me->_QUIT;
384 $me->close;
389 my $me = shift;
391 if (defined fileno($me) and ${*$me}{'net_pop3_deleted'}) {
392 $me->reset;
393 $me->quit;