File Coverage

lib/Flux/In/Role/Easy.pm

Criterion	Covered	Total	%
statement	3	12	25.0
branch	0	4	0.0
condition			n/a
subroutine	1	3	33.3
pod	0	2	0.0
total	4	21	19.0

package Flux::In::Role::Easy;
{
  $Flux::In::Role::Easy::VERSION = '1.03';
}

# ABSTRACT: simplified version of Flux::In role


use Moo::Role;
with 'Flux::In';

sub read_chunk {
    my $self = shift;
    my ($limit) = @_;

    my @chunk;
    while (defined($_ = $self->read)) {
        push @chunk, $_;
        last if @chunk >= $limit;
    }
    return unless @chunk; # return false if nothing can be read
    return \@chunk;
}

sub commit {
}


1;

__END__