JSON/RPC/Server.pm

187     my $procedure = $self->_find_procedure($method);
189     unless ($procedure) {
201     unless ($params = $self->_argument_type_check($procedure->{argument_type}, $obj->{params})) {
208         $result = ref $params ? eval q| $procedure->{code}->($self, $params) |
209                               : eval q| $procedure->{code}->($self) |
220         $result = eval q| $procedure->{code}->($self, @params) |;
316         if ( my $procedure = JSON::RPC::Procedure::check($pkg, $code) ) {
317             return if ($procedure->{return_type} and $procedure->{return_type} eq 'Private');
318             $procedure->{code} = $code;
319             return $procedure;
517 Passes the server object and the object decoded from the JSON data to your procedure (method).
523 Well, you write your procedure code only.
541 Sets your procedure module using package name list or arrayref or hashref.
562     message => "This is error in my procedure."
566 An error code number in your procedure is an integer between 501 and 899.
576 In your procedure, changes its behaviour.
603 When your program dies in your procedure,
669 When a client call a procedure (method) name 'system.foobar',