Yet Another CPAN Grep

WWW-Subsonic ( B/BL/BLHOTSKY/WWW-Subsonic-0.010.tar.gz, BLHOTSKY, 2020; MetaCPAN )

WWW-Subsonic/lib/WWW/Subsonic.pm ( view source; MetaCPAN )

s;
use feature 'state';

use Digest::MD5 qw(md5_hex);
use HTML::Entities qw(decode_entities);
use JSON::MaybeXS;
use Mojo::UserAgent;
use Moo;
use Net::Netrc;
use Types::Standard qw(Enum InstanceOf In

 t => $self->token,
        v => $self->api_version,
        c => $self->client_id,
        f => 'json',
        defined $params ? %{ $params } : (),
    );
    foreach my $k ( keys %q ) {
        $ur

->body;
        if( $result->headers->content_type =~ m{application/json} ) {
            eval {
                my $d = decode_json($body);
                $data = $d->{'subsonic-response'};