RSION = '0.0602';
use strictures 2;
use Carp qw(croak);
use Mojo::UserAgent ();
use Mojo::JSON qw(decode_json);
use Mojo::URL ();
use Moo;
use Try::Tiny;
use namespace::clean;
has base => (
is
if ( $res->is_success ) {
my $body = $res->body;
try {
$data = decode_json($body);
}
catch {
croak $body, "\n";
};
}
else {
org/data>
L<https://acousticbrainz.readthedocs.io/api.html>
L<Moo>
L<Mojo::UserAgent>
L<Mojo::JSON>
L<Try::Tiny>
=head1 AUTHOR
Gene Boggs <gene@cpan.org>
=head1 COPYRIGHT AND LICENSE
This sof