File Coverage

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


line stmt bran cond sub pod time code
1             package PLS::Server::Request::Workspace::DidChangeConfiguration;
2              
3 11     11   154 use strict;
  11         44  
  11         471  
4 11     11   172 use warnings;
  11         157  
  11         817  
5              
6 11     11   96 use parent 'PLS::Server::Request';
  11         150  
  11         190  
7              
8 11     11   848 use PLS::Server::Request::Workspace::Configuration;
  11         119  
  11         852  
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 0           return;
31             } ## end sub service
32              
33             1;