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;
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;