File Coverage

blib/lib/Email/Folder/IMAP.pm

Criterion	Covered	Total	%
statement	15	39	38.4
branch	0	10	0.0
condition	0	3	0.0
subroutine	5	9	55.5
pod	1	1	100.0
total	21	62	33.8

use strict;
use warnings;
package Email::Folder::IMAP;
# ABSTRACT: Email::Folder Access to IMAP Folders
$Email::Folder::IMAP::VERSION = '1.105';
use parent qw[Email::Folder::Reader];
use Net::IMAP::Simple 0.95; # :port support
use URI;

sub _imap_class {
  'Net::IMAP::Simple';
}

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_port;
  my $server = $self->_imap_class->new($host);

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

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

  my $box = substr $uri->path, 1;
  $server->select($box) if $box;

  $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;

#pod =head1 SYNOPSIS
#pod
#pod   use Email::Folder;
#pod   use Email::FolderType::Net;
#pod
#pod   my $folder = Email::Folder->new('imap://example.com'); # read INBOX
#pod
#pod   print $_->header('Subject') for $folder->messages;
#pod
#pod =head1 DESCRIPTION
#pod
#pod This software adds IMAP functionality to L.
#pod Its interface is identical to the other
#pod L subclasses.
#pod
#pod =head2 Parameters
#pod
#pod C and C parameters may be sent to C. If
#pod used, they override any user info passed in the connection URI.
#pod
#pod =head2 Folder Specification
#pod
#pod Folders are specified using a simplified form of the IMAP URL Scheme
#pod detailed in RFC 2192. Not all of that specification applies. Here
#pod are a few examples.
#pod
#pod Selecting the INBOX.
#pod
#pod   imap://foo.com
#pod
#pod Selecting the INBOX using URI based authentication. Remember that the
#pod C and C parameters passed to C will override
#pod anything set in the URI.
#pod
#pod   imap://user:[e-mail]
#pod
#pod Selecting the p5p list.
#pod
#pod   imap://foo.com/perl/perl5-porters
#pod
#pod =head1 SEE ALSO
#pod
#pod L,
#pod L,
#pod L,
#pod L,
#pod L.

__END__