File Coverage

lib/Beekeeper/JSONRPC/Request.pm

Criterion	Covered	Total	%
statement	9	17	52.9
branch	4	4	100.0
condition			n/a
subroutine	5	12	41.6
pod	9	10	90.0
total	27	43	62.7

package Beekeeper::JSONRPC::Request;

use strict;
use warnings;

our $VERSION = '0.09';


sub new {
    my $class = shift;
    bless {
        jsonrpc => '2.0',
        method  => undef,
        params  => undef,
        id      => undef,
        @_
    }, $class;
}

sub method     { $_[0]->{method} }
sub params     { $_[0]->{params} }
sub id         { $_[0]->{id}     }

sub response {
    $_[0]->{_response};
}

sub result {
    # Shortcut for $req->response->result
    return ($_[0]->{_response}) ? $_[0]->{_response}->{result} : undef;
}

sub success {
    # Shortcut for $req->response->success
    return ($_[0]->{_response}) ? $_[0]->{_response}->success : undef;
}

sub mqtt_properties {
    $_[0]->{_mqtt_properties};
}

sub async_response {
    $_[0]->{_async_response} = 1;
}

sub send_response {
    $_[0]->{_worker}->__send_response(@_);
}

1;

__END__