Scroll to navigation

JSON::RPC::Legacy::Procedure(3pm) User Contributed Perl Documentation JSON::RPC::Legacy::Procedure(3pm)

NAME

JSON::RPC::Legacy::Procedure - JSON-RPC Service attributes

SYNOPSIS

 package MyApp;
 
 use base ('JSON::RPC::Legacy::Procedure');
 
 sub sum : Public {
     my ($s, @arg) = @_;
     return $arg[0] + $arg[1];
 }
 
 # or 
 
 sub sum : Public(a, b) {
     my ($s, $obj) = @_;
     return $obj->{a} + $obj->{b};
 }
 
 # or 
 
 sub sum : Number(a:num, b:num) {
     my ($s, $obj) = @_;
     return $obj->{a} + $obj->{b};
 }
 
 # private method can't be called by clients
 
 sub _foobar : Private {
     # ...
 }

DESCRIPTION

Using this module, you can write a subroutine with a special attribute.

Currently, in below attributes, only Public and Private are available. Others are same as Public.

Public
Means that a client can call this procedure.
Private
Means that a client can't call this procedure.
Arr
Means that its return values is an array object.
Obj
Means that its return values is a member object.
Bit
Bool
Means that a return values is a "true" or "false".
Num
Means that its return values is a number.
Str
Means that its return values is a string.
Nil
None
Means that its return values is a "null".

TODO

Auto Service Description
Type check

SEE ALSO

<http://json-rpc.org/wd/JSON-RPC-1-1-WD-20060807.html>

AUTHOR

Makamaka Hannyaharamitu, <makamaka[at]cpan.org>

COPYRIGHT AND LICENSE

Copyright 2007 by Makamaka Hannyaharamitu

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

2015-06-12 perl v5.20.2