File Coverage

blib/lib/POEx/HTTP/Server/Request.pm
Criterion Covered Total %
statement 13 13 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             # $Id: Request.pm 909 2012-07-13 15:38:39Z fil $
2             # Copyright 2010 Philip Gwyn
3              
4             package POEx::HTTP::Server::Request;
5              
6 15     15   99737 use strict;
  15         38  
  15         592  
7 15     15   125 use warnings;
  15         30  
  15         556  
8              
9 15     15   90 use base qw( HTTP::Request );
  15         34  
  15         8159  
10              
11              
12             sub connection
13             {
14 46     46 1 9029679 my( $self, $connection ) = @_;
15 46         156 my $rv = $self->{connection};
16 46 100       247 $self->{connection} = $connection if 2==@_;
17 46         251 return $rv;
18             }
19              
20             1;
21              
22             __END__