File Coverage

blib/lib/HTTP/Proxy/BodyFilter.pm

Criterion	Covered	Total	%
statement	13	14	92.8
branch	4	4	100.0
condition			n/a
subroutine	5	6	83.3
pod	4	4	100.0
total	26	28	92.8

package HTTP::Proxy::BodyFilter;
$HTTP::Proxy::BodyFilter::VERSION = '0.303';
use strict;
use Carp;

sub new {
    my $class = shift;
    my $self = bless {}, $class;
    $self->init(@_) if $self->can('init');
    return $self;
}

sub proxy {
    my ( $self, $new ) = @_;
    return $new ? $self->{_hpbf_proxy} = $new : $self->{_hpbf_proxy};
}

sub filter {
    croak "HTTP::Proxy::HeaderFilter cannot be used as a filter";
}

sub will_modify { 1 } # by default, we expect the filter to modify data

1;

__END__