Commit | Line | Data |
---|---|---|
a88c1c57 | 1 | package HTML::Zoom::TransformedStream; |
2 | ||
1cf03540 | 3 | use strictures 1; |
a88c1c57 | 4 | use base qw(HTML::Zoom::FilterStream); |
5 | ||
6 | sub new { | |
7 | my ($class, $args) = @_; | |
8 | $args->{selector} = $args->{transform}->selector; | |
9 | $args->{match} = $args->{transform}->match; | |
10 | $args->{filters} = $args->{transform}->filters; | |
11 | my $new = $class->SUPER::new($args); | |
12 | $new->{transform} = $args->{transform}; | |
13 | $new | |
14 | } | |
15 | ||
16 | sub transform { shift->{transform} } | |
17 | ||
18 | 1; |