NAME

       HTTP::Proxy::BodyFilter::simple - A class for creating simple filters

SYNOPSIS

           use HTTP::Proxy::BodyFilter::simple;

           # a simple s/// filter
           my $filter = HTTP::Proxy::BodyFilter::simple->new(
               sub { ${ $_[1] } =~ s/foo/bar/g; }
           );
           $proxy->push_filter( response => $filter );

DESCRIPTION

       HTTP::Proxy::BodyFilter::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.

   Constructor calling convention
       The constructor can be called in several ways, which are shown in the synopsis:

       single code reference
           The code reference must conform to the standard filter() signature:

               sub filter {
                   my ( $self, $dataref, $message, $protocol, $buffer ) = @_;
                   ...
               }

           It is assumed to be the code for the "filter()" method.  See HTTP::Proxy::BodyFilter
           for more details about the "filter()" method.

       name/coderef pairs
           The name is the name of the method ("filter", "begin", "end") and the coderef is the
           method itself.

           See HTTP::Proxy::BodyFilter for the methods signatures.

METHODS

       This filter "factory" defines the standard HTTP::Proxy::BodyFilter 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::BodyFilter::simple methods, and are called
       automatically:

       init()
           Initalise the filter instance with the code references passed to the constructor.

       can()
           Return the actual code reference that will be run, and not the "proxy" methods. If
           called with any other name than "begin", "end" and "filter", calls "UNIVERSAL::can()"
           instead.

       There is also a method that returns a boolean value:

       will_modify()
           The "will_modify()" method returns a scalar value (boolean) indicating if the filter
           may modify the body data. The default method returns a true value, so you only need to
           set this value when you are absolutely certain that the filter will not modify data
           (or at least not modify its final length).

           Here's a simple example:

               $filter = HTTP::Proxy::BodyFilter::simple->new(
                   filter => sub { ${ $_[1] } =~ s/foo/bar/g; },
                   will_modify => 0,    # "foo" is the same length as "bar"
               );

SEE ALSO

       HTTP::Proxy, HTTP::Proxy::BodyFilter.

AUTHOR

       Philippe "BooK" Bruhat, <book@cpan.org>.

COPYRIGHT

       Copyright 2003-2013, Philippe Bruhat.

LICENSE

       This module is free software; you can redistribute it or modify it under the same terms as
       Perl itself.