File Coverage

blib/lib/Email/Folder/Reader.pm

Criterion	Covered	Total	%
statement	18	19	94.7
branch			n/a
condition	1	3	33.3
subroutine	5	6	83.3
pod	3	3	100.0
total	27	31	87.1

use strict;
use warnings;
package Email::Folder::Reader;
# ABSTRACT: reads raw RFC822 mails from a box
$Email::Folder::Reader::VERSION = '0.859';
use Carp;

#pod =head1 SYNOPSIS
#pod
#pod  use Email::Folder::Reader;
#pod  my $box = Email::Folder::Reader->new('somebox');
#pod  print $box->messages;
#pod
#pod or, as an iterator
#pod
#pod  use Email::Folder::Reader;
#pod  my $box = Email::Folder::Reader->new('somebox');
#pod  while ( my $mail = $box->next_message ) {
#pod      print $mail;
#pod  }
#pod
#pod =head1 METHODS
#pod
#pod =head2 new($filename, %options)
#pod
#pod your standard class-method constructor
#pod
#pod =cut

sub new {
    my $class = shift;
    my $file  = shift || croak "You must pass a filename";
    bless { eval { $class->defaults },
            @_,
            _file => $file }, $class;
}

#pod =head2 ->next_message
#pod
#pod returns the next message from the box, or false if there are no more
#pod
#pod =cut

sub next_message {
}

#pod =head2 ->messages
#pod
#pod Returns all the messages in a box
#pod
#pod =cut

sub messages {
    my $self = shift;

    my @messages;
    while (my $message = $self->next_message) {
        push @messages, $message;
    }
    return @messages;
}

1;

__END__