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.