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

package HTML::Zoom::CodeStream;

use strict;
use warnings FATAL => 'all';
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;
	2
	3	use strict;
	4	use warnings FATAL => 'all';
5f74b883	5	use base qw(HTML::Zoom::StreamBase);
456a815d	6
456a815d	7	sub new {
456a815d	8	my ($class, $args) = @_;
d80786d0	9	bless({ _code => $args->{code}, _zconfig => $args->{zconfig} }, $class);
456a815d	10	}
456a815d	11
b5a48c47	12	sub _next {
b5a48c47	13	$_[0]->{_code}->();
456a815d	14	}
	15
	16	1;
	17