File Coverage

blib/lib/PLS/Server/Response/ServerNotInitialized.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 16 17 94.1


line stmt bran cond sub pod time code
1              
2             use strict;
3 9     9   45 use warnings;
  9         18  
  9         224  
4 9     9   36  
  9         26  
  9         189  
5             use parent q(PLS::Server::Response);
6 9     9   36  
  9         21  
  9         37  
7             =head1 NAME
8              
9             PLS::Server::Response::ServerNotInitialized
10              
11             =head1 DESCRIPTION
12              
13             This is an error sent from the server to the client indicating that the
14             client sent a request before the server was initialized.
15              
16             =cut
17              
18             {
19             my ($class, $request) = @_;
20              
21 1     1 0 4 my %self = (
22             id => $request->{id},
23             error => {
24             code => -32002,
25 1         42 message => 'server not yet initialized'
26             }
27             );
28              
29             return bless \%self, $class;
30             } ## end sub new
31 1         17  
32             1;