lib/HTML/Zoom/ArrayStream.pm

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