NAME Perinci::AccessUtil - Utility module for Riap client/server VERSION This document describes version 0.04 of Perinci::AccessUtil (from Perl distribution Perinci-AccessUtil), released on 2014-10-23. SYNOPSIS use Perinci::AccessUtil qw( strip_riap_stuffs_from_res insert_riap_stuffs_to_res decode_args_in_riap_req ); strip_riap_stuffs_from_res([200,"OK",undef,{"riap.v"=>1.1}]); # => [200,"OK",undef] strip_riap_stuffs_from_res([200,"OK",undef,{"riap.foo"=>1}]); # => [501, "Unknown Riap attribute in result metadata: riap.foo"] insert_riap_stuffs_to_res([200,"OK",undef); # => [200,"OK",undef,{"riap.v"=>1.1}] decode_args_in_riap_req({v=>1.2, args=>{"a:base64"=>"AAAA"}}); # => {v=>1.2, args=>{a=>"\0\0\0"}} DESCRIPTION FUNCTIONS insert_riap_stuffs_to_res($envres[, $def_ver, $nmeta]) => array Starting in Riap protocol v1.2, server is required to return "riap.v" in result metadata. This routine does just that. In addition to that, this routine also encodes result with base64 when necessary. This routine is used by Riap network server libraries, e.g. Perinci::Access::HTTP::Server and Perinci::Access::Simple::Server. strip_riap_stuffs_from_res($envres) => array Starting in Riap protocol v1.2, client is required to check and strip all "riap.*" keys in result metadata ("$envres->[3]"). This routine does just that. In addition, this routine also decode result if "riap.result_encoding" is set, so the user already gets the decoded content. This routine is used by Riap client libraries, e.g. Perinci::Access::Lite, Perinci::Access::Perl, and Perinci::Access::HTTP::Client, Perinci::Access::Simple::Client. If there is no error, will return $envres with all "riap.*" keys already stripped. If there is an error, an error response will be returned instead. Either way, you can use the response returned by this function to user. decode_args_in_riap_req($req) => $req Replace "ARGNAME:base64" keys in "arg" in Riap request $req with their decoded values. Only done when "v" key is at least 1.2. SEE ALSO Riap, Perinci::Access. HOMEPAGE Please visit the project's homepage at . SOURCE Source repository is at . BUGS Please report any bugs or feature requests on the bugtracker website When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature. AUTHOR perlancar COPYRIGHT AND LICENSE This software is copyright (c) 2014 by perlancar@cpan.org. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.