lib/DX/ArrayStream.pm

   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;