File Coverage

blib/lib/PLS/Server/Response.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 15 16 93.7


line stmt bran cond sub pod time code
1             package PLS::Server::Response;
2              
3 9     9   2949 use strict;
  9         18  
  9         200  
4 9     9   36 use warnings;
  9         17  
  9         189  
5              
6 9     9   36 use parent 'PLS::Server::Message';
  9         17  
  9         28  
7              
8             =head1 NAME
9              
10             PLS::Server::Response
11              
12             =head1 DESCRIPTION
13              
14             This is a class representing a response to a request.
15             This response can originate on the server or the client.
16              
17             =cut
18              
19             sub new
20             {
21 4     4 0 70 my ($class, $self) = @_;
22 4         66 return bless $self, $class;
23             }
24              
25             1;