nted REST clients
=head1 SYNOPSIS
package Your::API;
use base qw(Rest::Client::Builder);
use JSON;
sub new {
my ($class) = @_;
my $self;
$self = $class->SUPER::new({
on_request => sub
{
my ($self, $method, $path, $args) = @_;
return sprintf("%s %s %s\n", $method, $path, encode_json($args));
}
my $api = Your::API->new();
print $api->resource->get({ value => 1 });
# output:
ide any methods of any API object:
package Your::API;
use base qw(Rest::Client::Builder);
use JSON;
sub new {
my ($class) = @_;
my $self;
$self = $class->SUPER::new({
on_request => sub