File Coverage

blib/lib/HTTP/Proxy/HeaderFilter.pm

Criterion	Covered	Total	%
statement	12	13	92.3
branch	4	4	100.0
condition			n/a
subroutine	4	5	80.0
pod	3	3	100.0
total	23	25	92.0

package HTTP::Proxy::HeaderFilter;
$HTTP::Proxy::HeaderFilter::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 filter {
    croak "HTTP::Proxy::HeaderFilter cannot be used as a filter";
}

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

1;

__END__