lib/HTML/Zoom/ArrayStream.pm

   1 package HTML::Zoom::ArrayStream;
   2
   3 use strictures 1;
   4 use base qw(HTML::Zoom::StreamBase);
   5
   6 sub new {
   7   my ($class, $args) = @_;
   8   bless(
   9     { _zconfig => $args->{zconfig}, _array => [ @{$args->{array}} ] },
  10     $class
  11   );
  12 }
  13
  14 sub _next {
  15   my $ary = $_[0]->{_array};
  16   return unless @$ary;
  17   return shift @$ary;
  18 }
  19
  20 1;