Yet Another CPAN Grep

WWW-Discogs ( M/MG/MGASEK/WWW-Discogs-0.13.tar.gz, MGASEK, 2012; MetaCPAN )

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

:Discogs;

use strict;
use warnings;

use LWP::UserAgent;
use URI;
use URI::Escape;
use Carp;
use JSON::XS;
use Data::Dumper;

use 5.008;
our $VERSION = '0.13';

our @namespaces = qw ( Artist Release

 \$query_params,
                );

            my \$json = JSON::XS::decode_json( \$res->decoded_content );
            my \$class_data = \$json->{resp}->{'$name'};
            \$class_data->{_uri}

  \$class_data->{_params} = \$query_params;

            if (\$json->{resp}->{status} == JSON::XS::true &&
                defined \$json->{resp}->{'$name'}) {
                return $pkg->new(\%{\$cl