File Coverage

blib/lib/HTTP/Proxy/BodyFilter/complete.pm
Criterion Covered Total %
statement 20 20 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod 2 2 100.0
total 31 31 100.0


line stmt bran cond sub pod time code
1             package HTTP::Proxy::BodyFilter::complete;
2             $HTTP::Proxy::BodyFilter::complete::VERSION = '0.304';
3 3     3   1703 use strict;
  3         3  
  3         98  
4 3     3   15 use HTTP::Proxy;
  3         3  
  3         203  
5 3     3   343 use HTTP::Proxy::BodyFilter;
  3         4  
  3         60  
6 3     3   12 use vars qw( @ISA );
  3         4  
  3         135  
7             @ISA = qw( HTTP::Proxy::BodyFilter );
8 3     3   12 use Carp;
  3         3  
  3         317  
9              
10             sub filter {
11 6     6 1 7 my ( $self, $dataref, $message, $protocol, $buffer ) = @_;
12 6 100       20 return unless defined $buffer;
13              
14 5         6 $$buffer = $$dataref;
15 5         9 $$dataref = "";
16             }
17              
18 4     4 1 9 sub will_modify { 0 }
19              
20             1;
21              
22             __END__