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