[dbsrgits/DBIx-Data-Store-old.git] / lib / Data / Perl / Stream / Array.pm

package Data::Perl::Stream::Array;

use Moose;
use Method::Signatures::Simple;

has _array => (is => 'rw', required => 1, init_arg => 'array');

method BUILD { $self->_array([ @{$self->_array} ]) }

use Devel::Dwarn;

method next {
  my $ary = $self->_array;
  return unless @$ary;
  return shift @$ary;
}

__PACKAGE__->meta->make_immutable;

1;
Commit	Line	Data
65b76960	1	package Data::Perl::Stream::Array;
	2
	3	use Moose;
	4	use Method::Signatures::Simple;
	5
	6	has _array => (is => 'rw', required => 1, init_arg => 'array');
	7
	8	method BUILD { $self->_array([ @{$self->_array} ]) }
	9
	10	use Devel::Dwarn;
	11
	12	method next {
	13	my $ary = $self->_array;
	14	return unless @$ary;
	15	return shift @$ary;
	16	}
	17
4b4cd5bd	18	__PACKAGE__->meta->make_immutable;
4b4cd5bd	19
65b76960	20	1;