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   41473 use strictures 1;
  13         65  
  13         246  
4 13     13   785 use base qw(HTML::Zoom::StreamBase);
  13         20  
  13         2260  
5              
6             sub new {
7 158     158 0 210 my ($class, $args) = @_;
8 158         627 bless({ _code => $args->{code}, _zconfig => $args->{zconfig} }, $class);
9             }
10              
11             sub _next {
12 553     553   1074 $_[0]->{_code}->();
13             }
14              
15             1;
16