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 | 45 | use warnings; | |||
9 | 17 | ||||||
9 | 189 | ||||||
4 | 9 | 9 | 36 | ||||
9 | 25 | ||||||
9 | 186 | ||||||
5 | use parent 'PLS::Server::Response'; | ||||||
6 | 9 | 9 | 44 | ||||
9 | 17 | ||||||
9 | 36 | ||||||
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 | 11 | |||||
24 | 1; |