Yet Another CPAN Grep

Mojo-WebService-LastFM ( T/TE/TESMITH/Mojo-WebService-LastFM-0.02.tar.gz, TESMITH, 2020; MetaCPAN )

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

i_key . 
    '&format=json' . 
    '&limit=' . $limit;

    unless ( ref $_[-1] eq 'CODE' )
    {
        my $tx = $self->ua->get($url);
        return ( $tx->res ? $tx->res->json : $tx->error );

ed $tx->result;

        my $json = $tx->res->json;
        $callback->(Mojo::Exception->new('json response is undefined')) unless defined $json;

        $callback->($json);
    });
}

sub recenttrac

        my $json = $self->recenttracks({ 'username' => $username, 'limit' => 1 });
        if ( exists $json->{'recenttracks'}{'track'}[0] )
        {
            $np = _simplify_json($json);