CPAN::Groonga

nguage system itself.

=cut

__END__



my $req = ZMQx::RPC::Message::Request->new('foo',{ type=>'JSON'},{ foo=>'bar'});
$socket->send_bytes($req->pack);
my $res = ZMQx::RPC::Message::Response->parse(

 ($res->success) {
    say 'yay';
}




my $req = ZMQx::RPC::Message::Request->new('foo',{ type=>'JSON'},{ foo=>'bar'});
$socket->send_bytes($req->pack);
my $res = ZMQx::RPC::Message::Response->parse(

{
            type=>'JSON',
            timeout=>1000, # milisecs
        },
        \%payload
    )
    # $msg = ['something','JSON;1000','{"foo":42}'] # payload converted to JSON

    my ($command, 

x::RPC::Message->pack(
        'cmd',
        {
            type=>'JSON'
        },
        @payloads
    )
    # $msg4 = ['cmd','JSON;1000','{"foo":42}','["bar",8]']

    my $curry = ZMQx::RPC::Messa

to pass to pack()
    my %args = (
                # Default parameter type. Maybe this should be JSON
                type => 'string',
                # Default return type. Also valid Item, List an

{ 'JSON' => \&JSON::XS::encode_json, };
    }
);
has 'deserializable_types' => (
    is      => 'ro',
    default => sub {
        use_module('JSON::XS');
        { 'JSON' => \&JSON::XS::decode_json,