File Coverage

blib/lib/PLS/Server/Request/Workspace/DidChangeWorkspaceFolders.pm

Criterion	Covered	Total	%
statement	15	28	53.5
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod	0	1	0.0
total	20	35	57.1

package PLS::Server::Request::Workspace::DidChangeWorkspaceFolders;

use strict;
use warnings;

use parent 'PLS::Server::Request';

use URI;

use PLS::Parser::Index;

=head1 NAME

PLS::Server::Request::Workspace::DidChangeWorkspaceFolders

=head1 DESCRIPTION

This is a notification from the client to the server that
workspace folders were added or removed.

=cut

sub service
{
    my ($self) = @_;

    my $added   = $self->{params}{event}{added};
    my $removed = $self->{params}{event}{removed};

    my $index = PLS::Parser::Index->new();

    foreach my $folder (@{$removed})
    {
        my $path = URI->new($folder->{uri})->file;
        $index->deindex_workspace($path);
    }

    foreach my $folder (@{$added})
    {
        my $path = URI->new($folder->{uri})->file;
        $index->index_workspace($path);
    }

    return;
} ## end sub service

1;