File Coverage

lib/Sisimai/Mail/STDIN.pm

Criterion	Covered	Total	%
statement	28	30	93.3
branch	2	6	33.3
condition	0	3	0.0
subroutine	7	7	100.0
pod	2	2	100.0
total	39	48	81.2

package Sisimai::Mail::STDIN;
use feature ':5.10';
use strict;
use warnings;
use IO::Handle;
use Class::Accessor::Lite (
    'new' => 0,
    'ro'  => [
        'path',     # [String]  Fixed string ""
        'size',     # [Integer] Data size which has been read
    ],
    'rw'  => [
        'offset',   # [Integer]  The number of emails which have been read
        'handle',   # [IO::File] File handle
    ]
);

sub new {
    # Constructor of Sisimai::Mail::STDIN
    # @return   [Sisimai::Mail::STDIN] Object
    my $class = shift;
    my $param = {
        'path'   => '',
        'size'   => 0,
        'offset' => 0,
        'handle' => IO::Handle->new->fdopen(fileno(STDIN), 'r'),
    };
    return bless($param, __PACKAGE__);
}

sub read {
    # Mbox reader, works as a iterator.
    # @return   [String] Contents of mbox
    my $self = shift;
    return undef unless -T $self->{'handle'};

    my $readhandle = $self->{'handle'};
    my $readbuffer = '';
    eval {
        $readhandle = $self->{'handle'}->fdopen(fileno(STDIN), 'r') unless eof $readhandle;

        while( my $r = <$readhandle> ) {
            # Read an email from the mailbox file
            last if( $readbuffer && substr($r, 0, 5) eq 'From ' );
            $readbuffer .= $r;
        }
    };
    $self->{'size'}   += length $readbuffer;
    $self->{'offset'} += 1;
    return $readbuffer;
}

1;
__END__