Protocol-IMAP

 view release on metacpan or  search on metacpan

lib/Protocol/IMAP/Client.pm  view on Meta::CPAN

			my $data = shift;
			$f->fail($data);
		}
	);
	$f
}

sub _future_from_args {
	my $self = shift;
	my $args = shift;
	my $f = shift || Future->new;
	$f->on_done(delete $args->{on_ok}) if exists $args->{on_ok};
	$f->on_fail(delete $args->{on_bad}) if exists $args->{on_bad};
	return $f
}

=head2 status

Issue the STATUS command for either the given mailbox, or INBOX if none is provided.

=cut

lib/Protocol/IMAP/Fetch.pm  view on Meta::CPAN

package Protocol::IMAP::Fetch;
{
  $Protocol::IMAP::Fetch::VERSION = '0.004';
}
use strict;
use warnings;
use parent qw(Mixin::Event::Dispatch);

use Try::Tiny;
use Future;
use Protocol::IMAP::FetchResponseParser;
use Protocol::IMAP::Envelope;
use List::Util qw(min);

sub new {
	my $class = shift;
	my $self = bless {
		parse_buffer => '',
		@_
	}, $class;

lib/Protocol/IMAP/Fetch.pod  view on Meta::CPAN

this file, but rather the original, inline with Protocol::IMAP::Fetch
at lib/Protocol/IMAP/Fetch.pm
(on the system that originally ran this).
If you do edit this file, and don't want your changes to be removed, make
sure you change the first line.

=cut

=head2 data

Returns a L<Future> which will resolve when the given
item is available. Suitable for smaller data strucures
such as the envelope. Not recommended for the full
body of a message, unless you really want to load the
entire message data into memory.

=head2 stream

This is what you would normally use for a message, although
at the moment you can't, so don't.

 view all matches for this distribution
 view release on metacpan -  search on metacpan