File Coverage

blib/lib/PLS/Server/Request/Workspace/DidChangeConfiguration.pm
Criterion Covered Total %
statement 12 14 85.7
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 20 80.0


line stmt bran cond sub pod time code
1             package PLS::Server::Request::Workspace::DidChangeConfiguration;
2              
3 9     9   120 use strict;
  9         19  
  9         229  
4 9     9   36 use warnings;
  9         18  
  9         225  
5              
6 9     9   38 use parent 'PLS::Server::Request';
  9         25  
  9         118  
7              
8 9     9   573 use PLS::Server::Request::Workspace::Configuration;
  9         66  
  9         674  
9              
10             =head1 NAME
11              
12             PLS::Server::Request::Workspace::DidChangeConfiguration
13              
14             =head1 DESCRIPTION
15              
16             This is a notification from the client to the server indicating that there
17             was a configuration change.
18              
19             The server sends back a L<PLS::Server::Request::Workspace::Configuration> request
20             to ask for the new configuration.
21              
22             =cut
23              
24             sub service
25             {
26 0     0 0   my ($self, $server) = @_;
27              
28 0           $server->send_server_request(PLS::Server::Request::Workspace::Configuration->new());
29             }
30              
31             1;