| HTTP::Proxy::HeaderFilter::simple - A class for creating simple filters |
HTTP::Proxy::HeaderFilter::simple - A class for creating simple filters
use HTTP::Proxy::HeaderFilter::simple;
# a simple User-Agent filter
my $filter = HTTP::Proxy::HeaderFilter::simple->new(
sub { $_[1]->header( User_Agent => 'foobar/1.0' ); }
);
$proxy->push_filter( request => $filter );
HTTP::Proxy::HeaderFilter::simple can create BodyFilter without going
through the hassle of creating a full-fledged class. Simply pass
a code reference to the filter() method of your filter to the constructor,
and you'll get the adequate filter.
The constructor is called with a single code reference.
The code reference must conform to the standard filter() signature
for header filters:
sub filter { my ( $self, $headers, $message) = @_; ... }
This code reference is used for the filter() method.
This filter ``factory'' defines the standard HTTP::Proxy::HeaderFilter methods, but those are only, erm, ``proxies'' to the actual CODE references passed to the constructor. These ``proxy'' methods are:
filter()begin()end()Two other methods are actually HTTP::Proxy::HeaderFilter::simple methods, and are called automatically:
init()can()begin and filter,
it calls UNIVERSAL::can() instead.
the HTTP::Proxy manpage, the HTTP::Proxy::HeaderFilter manpage.
Philippe ``BooK'' Bruhat, <book@cpan.org>.
Copyright 2003-2005, Philippe Bruhat.
This module is free software; you can redistribute it or modify it under the same terms as Perl itself.
| HTTP::Proxy::HeaderFilter::simple - A class for creating simple filters |