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              
2             use strict;
3 9     9   3306 use warnings;
  9         18  
  9         207  
4 9     9   36  
  9         18  
  9         284  
5             use parent 'PLS::Server::Message';
6 9     9   60  
  9         9  
  9         36  
7             =head1 NAME
8              
9             PLS::Server::Response
10              
11             =head1 DESCRIPTION
12              
13             This is a class representing a response to a request.
14             This response can originate on the server or the client.
15              
16             =cut
17              
18             {
19             my ($class, $self) = @_;
20             return bless $self, $class;
21 4     4 0 19 }
22 4         65  
23             1;