File Coverage

blib/lib/PLS/Server/Response/Hover.pm

Criterion	Covered	Total	%
statement	12	22	54.5
branch	0	4	0.0
condition			n/a
subroutine	4	5	80.0
pod	0	1	0.0
total	16	32	50.0

package PLS::Server::Response::Hover;

use strict;
use warnings;

use parent q(PLS::Server::Response);

use PLS::Parser::Document;

=head1 NAME

PLS::Server::Response::Hover

=head1 DESCRIPTION

This is a message from the server to the client with
documentation for the location the mouse is currently hovering.

=cut

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

    my $self = bless {
                      id     => $request->{id},
                      result => undef
                     }, $class;

    my $document = PLS::Parser::Document->new(uri => $request->{params}{textDocument}{uri});
    return $self if (ref $document ne 'PLS::Parser::Document');
    my ($ok, $pod) = $document->find_pod($request->{params}{textDocument}{uri}, @{$request->{params}{position}}{qw(line character)});
    return $self unless $ok;

    $self->{result} = {
                       contents => {kind => 'markdown', value => ${$pod->{markdown}}},
                       range    => $pod->{element}->range()
                      };

    return $self;
} ## end sub new

1;