RSION = '0.0401';
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 api_key => (
if ( $res->is_success ) {
my $body = $res->body;
try {
$data = decode_json($body);
}
catch {
croak $body, "\n";
};
}
else {
s and return them as a HashRef.
=head1 SEE ALSO
L<Moo>
L<Mojo::UserAgent>
L<Mojo::JSON::MaybeXS>
L<Mojo::JSON>
L<https://getsongbpm.com/api>
=head1 AUTHOR
Gene Boggs <gene@cpan.org>
=head1 CO