I
package WWW::Mixcloud;
use Moose;
use namespace::autoclean;
use URI;
use LWP::UserAgent;
use JSON;
use DateTime::Format::Atom;
use Carp qw/ croak /;
use WWW::Mixcloud::Cloudcast;
use WWW::Mixclo
= $self->ua->get( $API_BASE . $uri->path );
if ( $res->is_success ) {
return decode_json $res->content;
}
else {
croak 'API error: ' . $res->content;
}
}
1;
__END__