[catagits/HTML-Zoom.git] / lib / HTML / Zoom / ArrayStream.pm

package HTML::Zoom::ArrayStream;

use strict;
use warnings FATAL => 'all';
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;
Commit	Line	Data
b5a48c47	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;