1use Test::More tests => 2; 2use HTTP::Proxy; 3use HTTP::Proxy::HeaderFilter; 4use HTTP::Proxy::BodyFilter; 5 6my $proxy = HTTP::Proxy->new( port => 0 ); 7 8my $filter = HTTP::Proxy::HeaderFilter->new; 9$proxy->push_filter( request => $filter ); 10is( $filter->proxy, $proxy, "The HeaderFilter knows its proxy" ); 11 12$filter = HTTP::Proxy::BodyFilter->new; 13$proxy->push_filter( response => $filter ); 14is( $filter->proxy, $proxy, "The BodyFilter knows its proxy" ); 15 16