package WebService::EchoNest;
use Moose;
use MooseX::StrictConstructor;
use JSON::XS::VersionOneAndTwo;
use LWP::UserAgent;
use URI::QueryParam;
our $VERSION = '0.007';
has 'api_root' => (
is
'json' );
return HTTP::Request->new( 'GET', $uri );
}
sub _make_request {
my ( $self, $request ) = @_;
my $ua = $self->ua;
my $response = $ua->request($request);
my $data = from_json(