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 11     11   86 use strict;
  11         32  
  11         549  
4 11     11   79 use warnings;
  11         23  
  11         833  
5              
6 11     11   89 use parent 'PLS::Server::Response';
  11         24  
  11         65  
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 4 my ($class, $request) = @_;
22              
23 1         14 return bless {id => $request->{id}, result => undef}, $class;
24             }
25              
26             1;