File Coverage

blib/lib/Perl/LanguageServer/Req.pm

Criterion	Covered	Total	%
statement	9	11	81.8
branch			n/a
condition			n/a
subroutine	3	4	75.0
pod	0	1	0.0
total	12	16	75.0

package Perl::LanguageServer::Req ;

use strict;
use Moose ;

no warnings 'uninitialized' ;

# ---------------------------------------------------------------------------

has 'id' =>
    (
    isa => 'Maybe[Str]',
    is  => 'ro'
    ) ;

has 'params' =>
    (
    isa => 'HashRef',
    is  => 'ro'
    ) ;

has 'cancel' =>
    (
    isa => 'Bool',
    is  => 'rw',
    default => 0,
    ) ;

has 'is_dap' =>
    (
    isa => 'Bool',
    is  => 'rw',
    default => 0,
    ) ;

has 'type' =>
    (
    isa => 'Str',
    is  => 'rw',
    ) ;

# ---------------------------------------------------------------------------

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

    $self -> cancel (1) ;

    }


# ---------------------------------------------------------------------------

1 ;