[scpubgit/DKit.git] / lib / DX / ArrayStream.pm

package DX::ArrayStream;

use Moo;

has array => (is => 'ro', required => 1);

sub from_array {
  my ($class, @array) = @_;
  $class->new(array => \@array);
}

sub next {
  shift @{$_[0]->array};
}

sub is_exhausted { !@{$_[0]->array} }

1;
Commit	Line	Data
60cda014	1	package DX::ArrayStream;
	2
	3	use Moo;
	4
	5	has array => (is => 'ro', required => 1);
	6
	7	sub from_array {
	8	my ($class, @array) = @_;
	9	$class->new(array => \@array);
	10	}
	11
	12	sub next {
	13	shift @{$_[0]->array};
	14	}
	15
	16	sub is_exhausted { !@{$_[0]->array} }
	17
	18	1;