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 14     14   58107 use strictures 1;
  14         87  
  14         352  
4 14     14   1020 use base qw(HTML::Zoom::StreamBase);
  14         29  
  14         2834  
5              
6             sub new {
7 158     158 0 293 my ($class, $args) = @_;
8 158         937 bless({ _code => $args->{code}, _zconfig => $args->{zconfig} }, $class);
9             }
10              
11             sub _next {
12 553     553   1506 $_[0]->{_code}->();
13             }
14              
15             1;
16