package HTML::Zoom::ArrayStream;
use strictures 1;
use base qw(HTML::Zoom::StreamBase);
sub new {
my ($class, $args) = @_;
bless(
{ _zconfig => $args->{zconfig}, _array => [ @{$args->{array}} ] },
$class
);
}
sub _next {
my $ary = $_[0]->{_array};
return unless @$ary;
return shift @$ary;
}
1;