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             package PLS::Server::Request;
2              
3 9     9   3082 use strict;
  9         18  
  9         216  
4 9     9   36 use warnings;
  9         9  
  9         201  
5              
6 9     9   38 use parent 'PLS::Server::Message';
  9         10  
  9         53  
7              
8             =head1 NAME
9              
10             PLS::Server::Request
11              
12             =head1 DESCRIPTION
13              
14             This class represents a request. The request can originate on the server or the client.
15             If the request originates on the server and a response is expected,
16             the C<handle_response> method should be implemented.
17              
18             =cut
19              
20             sub new
21             {
22 17     17 0 67 my ($class, $request) = @_;
23              
24 17         143 return bless $request, $class;
25             }
26              
27             sub service
28             {
29 0     0 0   my ($self, $server) = @_;
30 0           return;
31             }
32              
33             sub handle_response
34             {
35 0     0 0   my ($self, $response, $server) = @_;
36              
37 0           return;
38             }
39              
40             1;