File Coverage

blib/lib/PLS/Server/Response/Shutdown.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::Shutdown;
2              
3 9     9   46 use strict;
  9         18  
  9         225  
4 9     9   37 use warnings;
  9         17  
  9         181  
5              
6 9     9   37 use parent 'PLS::Server::Response';
  9         18  
  9         43  
7              
8             =head1 NAME
9              
10             PLS::Server::Response::Shutdown
11              
12             =head1 DESCRIPTION
13              
14             This is a message from the server to the client indicating that
15             the shutdown request has been received.
16              
17             =cut
18              
19             sub new
20             {
21 1     1 0 5 my ($class, $request) = @_;
22              
23 1         9 return bless {id => $request->{id}, result => undef}, $class;
24             }
25              
26             1;