1 package HTML::Zoom::TransformedStream;
4 use warnings FATAL => 'all';
5 use base qw(HTML::Zoom::FilterStream);
8 my ($class, $args) = @_;
9 $args->{selector} = $args->{transform}->selector;
10 $args->{match} = $args->{transform}->match;
11 $args->{filters} = $args->{transform}->filters;
12 my $new = $class->SUPER::new($args);
13 $new->{transform} = $args->{transform};
17 sub transform { shift->{transform} }