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.302';
3 3     3   1655 use strict;
  3         27  
  3         95  
4 3     3   13 use HTTP::Proxy;
  3         3  
  3         138  
5 3     3   344 use HTTP::Proxy::BodyFilter;
  3         5  
  3         78  
6 3     3   14 use vars qw( @ISA );
  3         3  
  3         173  
7             @ISA = qw( HTTP::Proxy::BodyFilter );
8 3     3   12 use Carp;
  3         95  
  3         313  
9              
10             sub filter {
11 6     6 1 9 my ( $self, $dataref, $message, $protocol, $buffer ) = @_;
12 6 100       17 return unless defined $buffer;
13              
14 5         8 $$buffer = $$dataref;
15 5         11 $$dataref = "";
16             }
17              
18 4     4 1 9 sub will_modify { 0 }
19              
20             1;
21              
22             __END__