File Coverage

blib/lib/Web3/Tiny/RPC.pm

Criterion	Covered	Total	%
statement	12	28	42.8
branch	0	8	0.0
condition	0	6	0.0
subroutine	4	6	66.6
pod	0	2	0.0
total	16	50	32.0

package Web3::Tiny::RPC;

use strict;
use warnings;
use HTTP::Tiny;
use JSON::PP qw(encode_json decode_json);

our $VERSION = '0.01';

sub new {
    my ($class, %opts) = @_;
    die "Web3::Tiny::RPC: 'url' is required\n" unless $opts{url};

    my $self = {
        url     => $opts{url},
        _id     => 0,
        _http   => HTTP::Tiny->new(
            timeout         => $opts{timeout} || 30,
            agent           => 'Web3-Tiny/' . $VERSION,
            default_headers => { 'Content-Type' => 'application/json' },
        ),
    };
    return bless $self, $class;
}

# call($method, @params) -> $result (already JSON-decoded)
# dies on transport failure or a JSON-RPC "error" response.
sub call {
    my ($self, $method, @params) = @_;

    my $body = encode_json({
        jsonrpc => '2.0',
        id      => ++$self->{_id},
        method  => $method,
        params  => [@params],
    });

    my $resp = $self->{_http}->post(
        $self->{url},
        { content => $body },
    );

    die "Web3::Tiny::RPC: HTTP request to $self->{url} failed: $resp->{status} $resp->{reason}\n"
        unless $resp->{success};

    my $decoded = eval { decode_json($resp->{content}) };
    die "Web3::Tiny::RPC: invalid JSON response: $@\n" if $@;

    if (my $err = $decoded->{error}) {
        my $msg  = $err->{message} // 'unknown error';
        my $code = $err->{code}    // '?';
        die "Web3::Tiny::RPC: $method failed [$code]: $msg\n";
    }

    return $decoded->{result};
}

1;

__END__