File Coverage

blib/lib/Email/Folder/POP3.pm

Criterion	Covered	Total	%
statement	15	37	40.5
branch	0	10	0.0
condition	0	5	0.0
subroutine	5	8	62.5
pod	1	1	100.0
total	21	61	34.4

use strict;
use warnings;
package Email::Folder::POP3;
{
  $Email::Folder::POP3::VERSION = '1.015';
}
# ABSTRACT: Email::Folder Access to POP3 Folders

our $POP3    ||= 'Net::POP3';

use parent qw[Email::Folder::Reader];
use Net::POP3;
use URI;

sub _uri {
    my $self = shift;
    return $self->{_uri} ||= URI->new($self->{_file});
}

sub _server {
    my $self = shift;
    return $self->{_server} if $self->{_server};

    my $uri  = $self->_uri;
    my $host = $uri->host;
    my $port = $uri->port || 110;
    my $server = $POP3->new($host, Port => $port, Timeout => 60)
       or die("Net::POP3->new('$host', Port => $port, Timeout => 60): $!");

    my ($user, $pass) = @{$self}{qw[username password]};
    ($user, $pass) = split ':', $uri->userinfo, 2 unless $user;

    $server->login($user, $pass) if $user;

    $self->{_next} = 1;
    return $self->{_server} = $server;
}

sub next_message {
    my $self = shift;
    my $message = $self->_server->get($self->{_next});
    if ( $message ) {
        ++$self->{_next};
        return join '', @{$message};
    }
    $self->{_next} = 1;
    return;
}

1;

__END__