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

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;
Commit	Line	Data
b5a48c47	1	package HTML::Zoom::ArrayStream;
b5a48c47	2
1cf03540	3	use strictures 1;
b5a48c47	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;