Untitled

Understanding the type of out put from Musicbrainz cpan module?

my $ws = WebService::MusicBrainz::Release->new();

 

my $response = $ws->search({ TITLE => 'ok computer' });

 

 

if (ref($response) eq "REF" || ref($response) eq "SCALAR" || ref($response) eq "ARRAY" || ref($response) eq "HASH" || ref($response) eq "CODE" || ref($response) eq "GLOBE")

 

 {

 print "n What sort of thing is it? n";

 }

       

use WebService::MusicBrainz::Release;

 

my $ws = WebService::MusicBrainz::Release->new();

my $response = $ws->search({ TITLE => 'ok computer' });

my $release = $response->release(); # grab first one in the list

print $release->title(), " (", $release->type(), ") - ", $release->artist()->name(), "n";