File Coverage

blib/lib/JSON/RPC/Spec/Common.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch			n/a
condition	5	8	62.5
subroutine	13	13	100.0
pod			n/a
total	55	58	94.8

package JSON::RPC::Spec::Common;
use Moo::Role;
use Carp          ();
use JSON::MaybeXS qw(JSON);

has coder => (
    is  => 'lazy',
    isa => sub {
        my $self = shift;
        $self->can('encode') or Carp::croak('method encode required.');
        $self->can('decode') or Carp::croak('method decode required.');
    },
);

has [qw(_callback_key _jsonrpc)] => (is => 'lazy');

has [qw(_id _is_notification)] => (is => 'rw');

use namespace::clean;

sub _build_coder {
    JSON->new->utf8;
}

sub _build__callback_key {
    '_callback';
}

sub _build__jsonrpc {
    '2.0';
}

sub _error {
    my ($self, $error) = @_;
    return +{
        jsonrpc => $self->_jsonrpc,
        error   => $error,
        id      => $self->_id
    };
}

sub _rpc_invalid_request {
    my ($self, $msg) = @_;
    $msg //= 'Invalid Request';
    my $error = {
        code    => -32600,
        message => $msg
    };
    $self->_is_notification(undef);
    return $self->_error($error);
}

sub _rpc_method_not_found {
    my ($self, $msg) = @_;
    $msg //= 'Method not found';
    my $error = {
        code    => -32601,
        message => $msg
    };
    return $self->_error($error);
}

sub _rpc_invalid_params {
    my ($self, $msg) = @_;
    $msg //= 'Invalid params';
    my $error = {
        code    => -32602,
        message => $msg
    };
    return $self->_error($error);
}

sub _rpc_internal_error {
    my ($self, @args) = @_;
    my $error = {
        code    => -32603,
        message => 'Internal error',
        @args
    };
    return $self->_error($error);
}

sub _rpc_parse_error {
    my ($self, $msg) = @_;
    $msg //= 'Parse error';
    my $error = {
        code    => -32700,
        message => $msg
    };
    return $self->_error($error);
}

1;
__END__