Deprecated.
The maintainer of this distribution has indicated that it is deprecated and no longer suitable for use.
NAME
ZMQx::RPC::Message::Request - DEPRECATED - A unfinished prototype, do not use
VERSION
version 0.008
my
%payload
= (
foo
=>42 );
my
$msg
= ZMQx::RPC::Message->
pack
(
'something'
,
{
type
=>
'JSON'
,
timeout
=>1000,
# milisecs
},
\
%payload
)
# $msg = ['something','JSON;1000','{"foo":42}'] # payload converted to JSON
my
(
$command
,
$header
,
@payload
) = ZMQx::RPC::Message->
unpack
(
$msg
);
$payload
[0]->{foo}
# 42
my
@list
= (42,
'töst'
,47);
my
$msg2
= ZMQx::RPC::Message->
pack
(
'something_else'
,
{ },
@list
)
# $msg2 = ['something_else','string;500','42','t\303\266st','47']
my
$msg3
= ZMQx::RPC::Message->
pack
(
'something_else'
,
{
type
=>
'raw'
},
slurp(
'foo.jpg'
)
# slurp() shall return the raw jpg data
)
# $msg3 = ['something_else','raw;500','...']
my
@payloads
= ({
foo
=>42 }, [
'bar'
, 8 ]);
my
$msg4
= ZMQx::RPC::Message->
pack
(
'cmd'
,
{
type
=>
'JSON'
},
@payloads
)
# $msg4 = ['cmd','JSON;1000','{"foo":42}','["bar",8]']
my
$curry
= ZMQx::RPC::Message->prepare(
'something_else'
,
{ },
);
my
$msg
=
$curry
->(
@payload
);
AUTHOR
Thomas Klausner <domm@plix.at>
COPYRIGHT AND LICENSE
This software is copyright (c) 2013 - 2015 by Validad AG.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.