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; |