projects
/
dbsrgits/DBIx-Data-Store-old.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
f9fcea251a23678d992c26dc6bc29b338baae0a7
[dbsrgits/DBIx-Data-Store-old.git]
/
lib
/
Data
/
Perl
/
Stream
/
Array.pm
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
18
1;