File Coverage

lib/HTTP/Server/Session.pm
Criterion Covered Total %
statement 12 17 70.5
branch 0 2 0.0
condition n/a
subroutine 4 6 66.6
pod 0 2 0.0
total 16 27 59.2


line stmt bran cond sub pod time code
1             # Copyrights 2008 by Mark Overmeer.
2             # For other contributors see ChangeLog.
3             # See the manual pages for details on the licensing terms.
4             # Pod stripped from pm file by OODoc 1.05.
5 1     1   4 use warnings;
  1         2  
  1         23  
6 1     1   6 use strict;
  1         1  
  1         34  
7              
8             package HTTP::Server::Session;
9 1     1   4 use vars '$VERSION';
  1         1  
  1         42  
10             $VERSION = '0.11';
11              
12              
13 1     1   5 use Log::Report 'httpd-multiplex', syntax => 'SHORT';
  1         1  
  1         5  
14              
15              
16             sub new(@)
17 0     0 0   { my $class = shift;
18 0 0         my $args = @_==1 ? shift : {@_};
19 0           (bless {}, $class)->init($args);
20             }
21              
22             sub init($)
23 0     0 0   { my ($self, $args) = @_;
24 0           $self;
25             }
26              
27             #-----------------
28              
29             1;