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