Yet Another CPAN Grep

CloudApp-REST ( M/MD/MDIETRICH/CloudApp-REST-0.02.tar.gz, MDIETRICH, 2011; MetaCPAN )

CloudApp-REST/lib/CloudApp/REST.pm ( view source; MetaCPAN )

pp::REST;

use Moose;
use MooseX::Types::URI qw(Uri);

use LWP::UserAgent;
use HTTP::Request;
use JSON::XS;
use Module::Load;
use Data::Dumper;

=head1 NAME

CloudApp::REST - Perl Interface to the Clo

my $req = HTTP::Request->new;
        $req->header(Accept => 'application/json');
        $req->content_type('application/json');
        $req->uri($uri);

        $req->method('GET');
        if (%bo

->_debug("Have content, method will be POST");

            my $body_json = encode_json \%body;
            $req->content($body_json);
            $req->method('POST');
        }
        if (defined $