1 package HTML::Zoom::Transform;
4 use warnings FATAL => 'all';
5 use base qw(HTML::Zoom::SubObject);
8 my ($class, $args) = @_;
9 my $new = $class->SUPER::new($args);
10 $new->{selector} = $args->{selector};
11 $new->{filters} = $args->{filters}||[];
15 sub selector { shift->{selector} }
17 sub filters { shift->{filters} }
20 my ($self, $filter) = @_;
22 selector => $self->selector,
23 filters => [ @{$self->filters}, $filter ]
28 my ($self, $stream) = @_;
29 HTML::Zoom::FilterStream->new({
31 match => $self->selector,
32 filters => $self->filters,
33 zconfig => $self->_zconfig,