File Coverage

blib/lib/HTML/Zoom/TransformedStream.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 18 20 90.0


line stmt bran cond sub pod time code
1             package HTML::Zoom::TransformedStream;
2              
3 16     16   92 use strictures 1;
  16         95  
  16         412  
4 16     16   1132 use base qw(HTML::Zoom::FilterStream);
  16         77  
  16         13400  
5              
6             sub new {
7 130     130 0 213 my ($class, $args) = @_;
8 130         382 $args->{selector} = $args->{transform}->selector;
9 130         486 $args->{match} = $args->{transform}->match;
10 127         1507 $args->{filters} = $args->{transform}->filters;
11 127         794 my $new = $class->SUPER::new($args);
12 127         373 $new->{transform} = $args->{transform};
13 127         1661 $new
14             }
15              
16 6     6 0 20 sub transform { shift->{transform} }
17              
18             1;