File Coverage

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

Criterion	Covered	Total	%
statement	11	11	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	15	16	93.7

package PLS::Server::Response::Cancelled;

use strict;
use warnings;

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

=head1 NAME

PLS::Server::Response::Cancelled

=head1 DESCRIPTION

This is a message from the server to the client indicating that
a request has been cancelled.

=cut

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

    return
      bless {
             id    => $args{id},
             error => {code => -32_800, message => 'Request cancelled.'}
            }, $class;
} ## end sub new

1;