lib/HTML/Zoom/CodeStream.pm

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