Yet Another CPAN Grep

Net-LastFM ( B/BA/BAERGAJ/Net-LastFM-0.38.tar.gz, BAERGAJ, 2021; MetaCPAN )

Net-LastFM/lib/Net/LastFM.pm ( view source; MetaCPAN )

tFM::VERSION = '0.38';
use Moose;
use MooseX::StrictConstructor;
use Digest::MD5 qw(md5_hex);
use JSON::XS::VersionOneAndTwo;
use LWP::UserAgent;
use URI::QueryParam;

has 'api_key' => (
    is

= $conf{$key};
        $uri->query_param( $key, $value );
    }
    $uri->query_param( 'format', 'json' );

    return HTTP::Request->new( 'POST', $uri, [ 'Content-Length' => 0 ] );
}

sub create_http

= @_;
    my $ua = $self->ua;

    my $response = $ua->request($request);
    my $data     = from_json( $response->content );

    if ( defined $data->{error} ) {
        my $code    = $data->{error};