lib/HTML/Zoom/CodeStream.pm

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