1 package HTML::Zoom::TransformBuilder;
4 use base qw(HTML::Zoom::SubObject);
5 use HTML::Zoom::Transform;
8 my ($class, $args) = @_;
9 my $new = $class->SUPER::new($args);
12 || HTML::Zoom::Transform->new({
13 zconfig => $new->{_zconfig},
14 selector => $args->{selector},
17 $new->{proto} = $args->{proto};
24 my $meth = our $AUTOLOAD;
27 my $fb = $self->_zconfig->filter_builder;
28 if (my $cr = $fb->can($meth)) {
29 return $self->{proto}->with_transform(
30 $self->{transform}->with_filter($fb->$cr(@_))
33 die "Filter builder $fb does not provide action ${meth}";