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

package HTML::Zoom::CodeStream;

use strictures 1;
use base qw(HTML::Zoom::StreamBase);

sub new {
  my ($class, $args) = @_;
  bless({ _code => $args->{code}, _zconfig => $args->{zconfig} }, $class);
}

sub _next {
  $_[0]->{_code}->();
}

1;
Commit	Line	Data
456a815d	1	package HTML::Zoom::CodeStream;
456a815d	2
1cf03540	3	use strictures 1;
5f74b883	4	use base qw(HTML::Zoom::StreamBase);
456a815d	5
456a815d	6	sub new {
456a815d	7	my ($class, $args) = @_;
d80786d0	8	bless({ _code => $args->{code}, _zconfig => $args->{zconfig} }, $class);
456a815d	9	}
456a815d	10
b5a48c47	11	sub _next {
b5a48c47	12	$_[0]->{_code}->();
456a815d	13	}
	14
	15	1;
	16