lib/HTML/Zoom/TransformedStream.pm

   1 package HTML::Zoom::TransformedStream;
   2
   3 use strictures 1;
   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;