File Coverage

blib/lib/Email/Folder/Reader.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition	1	3	33.3
subroutine	5	6	83.3
pod	3	3	100.0
total	27	30	90.0

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

use Carp;


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


sub next_message {
}


sub messages {
    my $self = shift;

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

1;

__END__