File Coverage

lib/Beekeeper/JSONRPC/Request.pm

Criterion	Covered	Total	%
statement	9	18	50.0
branch	4	4	100.0
condition	0	2	0.0
subroutine	5	13	38.4
pod	10	11	90.9
total	28	48	58.3

package Beekeeper::JSONRPC::Request;

use strict;
use warnings;

our $VERSION = '0.10';


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 deflate_response {
    $_[0]->{_deflate_response} = $_[2] || 1024;
}

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

1;

__END__