AnyEvent-IMAP

 view release on metacpan or  search on metacpan

example/demo.pl  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use 5.010000;
use autodie;
use AnyEvent::IMAP;
use Config::Pit;
use Log::Minimal;
use AnyEvent::IMAP::Envelope;

my $conf = pit_get('damail', require => {
    'imap_server' => 'imap server',
    imap_user => 'user',

lib/AnyEvent/IMAP.pm  view on Meta::CPAN

# TODO:
# add_flags
# copy
# search('ALL')
# get_part_body

1;
__END__

=encoding utf8

=head1 NAME

AnyEvent::IMAP - IMAP client library for AnyEvent

=head1 SYNOPSIS

    use AnyEvent::IMAP;

    my $imap = AnyEvent::IMAP->new(

lib/Mail/IMAP/Address.pm  view on Meta::CPAN

package Mail::IMAP::Address;
use strict;
use warnings;
use utf8;

use Encode ();

use constant {
    NAME           => 0,
    AT_DOMAIN_LIST => 1,
    MAILBOX        => 2,
    HOST           => 3,
};

lib/Mail/IMAP/Envelope.pm  view on Meta::CPAN

package Mail::IMAP::Envelope;
use strict;
use warnings;
use utf8;
use Encode ();
use Mail::IMAP::Address;

use constant {
    DATE        => 0,
    SUBJECT     => 1,
    FROM        => 2,
    SENDER      => 3,
    REPLY_TO    => 4,
    TO          => 5,

lib/Mail/IMAP/Util.pm  view on Meta::CPAN

package Mail::IMAP::Util;
use strict;
use warnings;
use utf8;

use parent qw/Exporter/;

our @EXPORT = qw(imap_string_quote imap_parse_tokens);

sub imap_string_quote {
    local $_ = shift;
    s/\\/\\\\/g;
    s/\"/\\\"/g;
    "\"$_\"";

t/01_envelope.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;
use Mail::IMAP::Envelope;

my $envelope = Mail::IMAP::Envelope->new(['Thu, 2 Aug 2012 01:56:00 +0200','PAUSE indexer report TOKUHIROM/Amon2-3.38.tar.gz',[['PAUSE',undef,'upload','pause.perl.org']],[['PAUSE',undef,'upload','pause.perl.org']],[['PAUSE',undef,'upload','pause.perl...
is($envelope->date, 'Thu, 2 Aug 2012 01:56:00 +0200');
is($envelope->subject, 'PAUSE indexer report TOKUHIROM/Amon2-3.38.tar.gz');
is(join(',', map { $_->as_string } @{$envelope->from}), 'PAUSE <upload@pause.perl.org>');
is(join(',', map { $_->as_string } @{$envelope->sender}), 'PAUSE <upload@pause.perl.org>');
is(join(',', map { $_->as_string } @{$envelope->reply_to}), 'PAUSE <upload@pause.perl.org>');
is(join(',', map { $_->as_string } @{$envelope->to}), 'tokuhirom@gmail.com,andreas.koenig.gmwojprw+pause@franz.ak.mind.de');

t/02_can.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;

use AnyEvent::IMAP;

can_ok(AnyEvent::IMAP::, qw(new));

done_testing;