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 15     15   82 use strictures 1;
  15         78  
  15         384  
4 15     15   922 use base qw(HTML::Zoom::FilterStream);
  15         37  
  15         9323  
5              
6             sub new {
7 120     120 0 214 my ($class, $args) = @_;
8 120         421 $args->{selector} = $args->{transform}->selector;
9 120         417 $args->{match} = $args->{transform}->match;
10 117         540 $args->{filters} = $args->{transform}->filters;
11 117         566 my $new = $class->SUPER::new($args);
12 117         334 $new->{transform} = $args->{transform};
13 117         1493 $new
14             }
15              
16 6     6 0 18 sub transform { shift->{transform} }
17              
18             1;