File Coverage

lib/MojoX/JSON/RPC/Dispatcher/Method.pm

Criterion	Covered	Total	%
statement	20	24	83.3
branch	3	4	75.0
condition			n/a
subroutine	8	10	80.0
pod	9	9	100.0
total	40	47	85.1

package MojoX::JSON::RPC::Dispatcher::Method;

use Mojo::Base -base;

has id              => undef;
has method          => undef;
has params          => undef;
has result          => undef;
has is_notification => 0;

has error_code    => undef;
has error_message => undef;
has error_data    => undef;

sub clear_error {
    my ($self) = @_;
    return $self->error( undef, undef, undef );
}

sub error {
    my ( $self, $code, $message, $data ) = @_;
    $self->error_code($code);
    $self->error_message($message);
    $self->error_data($data);
    return $self;
}

sub has_error {
    my ($self) = @_;
    return !!$self->error_code;
}

sub internal_error {
    my ( $self, $msg ) = @_;
    return $self->error( -32603, 'Internal error.', $msg );
}

sub invalid_params {
    my ( $self, $msg ) = @_;
    return $self->error( -32602, 'Invalid params.', $msg );
}

sub invalid_request {
    my ( $self, $msg ) = @_;
    return $self->error( -32600, 'Invalid Request.', $msg );
}

sub method_not_found {
    my ( $self, $msg ) = @_;
    return $self->error( -32601, 'Method not found.', $msg );
}

sub parse_error {
    my ( $self, $msg ) = @_;
    return $self->error( -32700, 'Parse error.', $msg );
}

sub response {
    my ($self) = @_;
    return {
        jsonrpc => '2.0',
        $self->is_notification ? () : ( id => $self->id ),
        $self->has_error
        ? ( error => {
                code    => $self->error_code,
                message => $self->error_message,
                data    => $self->error_data,
            }
            )
        : ( result => $self->result )
    };
}

1;

__END__