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   69 use strictures 1;
  15         65  
  15         355  
4 15     15   953 use base qw(HTML::Zoom::FilterStream);
  15         22  
  15         6407  
5              
6             sub new {
7 130     130 0 164 my ($class, $args) = @_;
8 130         279 $args->{selector} = $args->{transform}->selector;
9 130         307 $args->{match} = $args->{transform}->match;
10 127         417 $args->{filters} = $args->{transform}->filters;
11 127         480 my $new = $class->SUPER::new($args);
12 127         261 $new->{transform} = $args->{transform};
13 127         1210 $new
14             }
15              
16 6     6 0 15 sub transform { shift->{transform} }
17              
18             1;