[catagits/HTML-Zoom.git] / lib / HTML / Zoom / TransformedStream.pm

package HTML::Zoom::TransformedStream;

use strict;
use warnings FATAL => 'all';
use base qw(HTML::Zoom::FilterStream);

sub new {
  my ($class, $args) = @_;
  $args->{selector} = $args->{transform}->selector;
  $args->{match} = $args->{transform}->match;
  $args->{filters} = $args->{transform}->filters;
  my $new = $class->SUPER::new($args);
  $new->{transform} = $args->{transform};
  $new
}

sub transform { shift->{transform} }

1;
Commit	Line	Data
a88c1c57	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;