File Coverage

blib/lib/Hadoop/Streaming/Reducer/Input/ValuesIterator.pm

Criterion	Covered	Total	%
statement	3	13	23.0
branch	0	8	0.0
condition			n/a
subroutine	1	3	33.3
pod	2	2	100.0
total	6	26	23.0

package Hadoop::Streaming::Reducer::Input::ValuesIterator;
$Hadoop::Streaming::Reducer::Input::ValuesIterator::VERSION = '0.143060';
use Moo;
with 'Hadoop::Streaming::Role::Iterator';

#ABSTRACT: Role providing access to values for a given key.

has input_iter => (
    is       => 'ro',
    does     => 'Hadoop::Streaming::Role::Iterator',
    required => 1,
);

has first => ( is => 'rw', );


sub has_next
{
    my $self = shift;
    return 1 if $self->first;
    return unless defined $self->input_iter->input->next_key;
    return $self->input_iter->current_key eq
        $self->input_iter->input->next_key ? 1 : 0;
}


sub next
{
    my $self = shift;
    if ( my $first = $self->first )
    {
        $self->first(undef);
        return $first;
    }
    my ( $key, $value ) = $self->input_iter->input->each;
    $value;
}

__PACKAGE__->meta->make_immutable;

1;

__END__