lib/HTML/Zoom/TransformedStream.pm

   1 package HTML::Zoom::TransformedStream;
   2
   3 use strict;
   4 use warnings FATAL => 'all';
   5 use base qw(HTML::Zoom::FilterStream);
   6
   7 sub new {
   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};
  14   $new
  15 }
  16
  17 sub transform { shift->{transform} }
  18
  19 1;