File Coverage

blib/lib/PLS/Server/Request.pm
Criterion Covered Total %
statement 11 15 73.3
branch n/a
condition n/a
subroutine 4 6 66.6
pod 0 3 0.0
total 15 24 62.5


line stmt bran cond sub pod time code
1              
2             use strict;
3 9     9   3119 use warnings;
  9         11  
  9         215  
4 9     9   28  
  9         18  
  9         192  
5             use parent 'PLS::Server::Message';
6 9     9   37  
  9         18  
  9         45  
7             =head1 NAME
8              
9             PLS::Server::Request
10              
11             =head1 DESCRIPTION
12              
13             This class represents a request. The request can originate on the server or the client.
14             If the request originates on the server and a response is expected,
15             the C<handle_response> method should be implemented.
16              
17             =cut
18              
19             {
20             my ($class, $request) = @_;
21              
22 17     17 0 70 return bless $request, $class;
23             }
24 17         166  
25             {
26             my ($self, $server) = @_;
27             return;
28             }
29 0     0 0    
30 0           {
31             my ($self, $response, $server) = @_;
32              
33             return;
34             }
35 0     0 0    
36             1;