File Coverage

blib/lib/PLS/Server/Request/Factory.pm

Criterion	Covered	Total	%
statement	27	30	90.0
branch	3	8	37.5
condition	5	6	83.3
subroutine	8	8	100.0
pod	0	1	0.0
total	43	53	81.1

use strict;
use warnings;

use PLS::Server::Method::CompletionItem;
use PLS::Server::Method::TextDocument;
use PLS::Server::Method::Workspace;
use PLS::Server::Method::ServerMethod;
use PLS::Server::Request;

=head1 NAME

PLS::Server::Request::Factory

=head1 DESCRIPTION

This is a factory class. Given a request from the client, this
will determine the appropriate subclass of L<PLS::Server::Request> for the request
and return it.

=cut

{
    my ($class, $request) = @_;

    my $method = $request->{method};
    ($method) = split '/', $method;

    # create and return request classes here

    if (   PLS::Server::Method::ServerMethod::is_server_method($method)
        or not $PLS::Server::State::INITIALIZED
        or $PLS::Server::State::SHUTDOWN)
    {
        return PLS::Server::Method::ServerMethod::get_request($request);
    } ## end if (PLS::Server::Method::ServerMethod::is_server_method...)
    elsif ($method eq 'textDocument')
    {
        return PLS::Server::Method::TextDocument::get_request($request);
    }
    elsif ($method eq 'workspace')
    {
        return PLS::Server::Method::Workspace::get_request($request);
    }
    elsif ($method eq 'completionItem')
    {
        return PLS::Server::Method::CompletionItem::get_request($request);
    }

    return PLS::Server::Request->new($request);
} ## end sub new

1;