Yet Another CPAN Grep

Usergrid-Client ( A/AN/ANURADHA/Usergrid/Usergrid-Client-0.22.tar.gz, ANURADHA, 2014; MetaCPAN )

Usergrid-Client/lib/Usergrid/Request.pm ( view source; MetaCPAN )

 Carp qw(confess);
use Log::Log4perl qw(:easy);
use REST::Client;
use URI::Template;
use JSON;

my $json = JSON->new->allow_nonref;

=head1 NAME

Usergrid::Request - Role that provides HTTP invocation

er('Authorization',
        'Bearer ' . $self->user_token->{'access_token'});
  }

  my $json_req = $self->json_encode($request) if ($request);

  $client->DELETE($resource)          if ($method eq 'D

rce)             if ($method eq 'GET');
  $client->POST($resource, $json_req) if ($method eq 'POST');
  $client->PUT($resource, $json_req)  if ($method eq 'PUT');

  my $response = $client->responseCo