File Coverage

blib/lib/HTML/Zoom/CodeStream.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 13 14 92.8


line stmt bran cond sub pod time code
1             package HTML::Zoom::CodeStream;
2              
3 13     13   57083 use strictures 1;
  13         84  
  13         318  
4 13     13   837 use base qw(HTML::Zoom::StreamBase);
  13         25  
  13         2846  
5              
6             sub new {
7 154     154 0 352 my ($class, $args) = @_;
8 154         1125 bless({ _code => $args->{code}, _zconfig => $args->{zconfig} }, $class);
9             }
10              
11             sub _next {
12 539     539   1720 $_[0]->{_code}->();
13             }
14              
15             1;
16