WebService::MusicBrainz::Track
use WebService::MusicBrainz::Track;
my $ws = WebService::MusicBrainz::Track->new();
my $response = $ws->search({ TITLE => 'Same in any language' });
my $track = $response->track(); # grab the first one from list
print $track->title(), " - ", $track->artist()->name(), "\n";
# OUTPUT: Same In Any Language - I Nine
This module is used to search the MusicBrainz database about track information.
This method is the constructor and it will call for initialization.
This method will return the cached WebService::MusicBrainz::Query object.
This method will search the MusicBrainz database about track related information. The only argument is a hashref to define the search parameters.
my $ws = WebService::MusicBrainz::Track->new();
$ws->search({ TITLE => 'when the stars go blue' });
$ws->search({ TITLE => 'blue', OFFSET => 100 });
$ws->search({ ARTIST => 'Ryan Adams', TITLE => 'when the stars go blue' });
$ws->search({ RELEASE => 'Gold', TITLE => 'when the stars go blue' });
$ws->search({ DURATION => 200000, TITLE => 'when the stars go blue' });
$ws->search({ TRACKNUM => 7, TITLE => 'when the stars go blue' });
$ws->search({ ARTISTID => 'c80f38a6-9980-485d-997c-5c1a9cbd0d64', TITLE => 'when the stars go blue' });
$ws->search({ RELEASEID => '433adbc2-382f-4f3a-9ce9-401f221f5b3b', TITLE => 'when the stars go blue' });
$ws->search({ LIMIT => 5, TITLE => 'when the stars go blue' });
$ws->search({ MBID => 'bd08eddf-b811-4653-b56b-892292c291bc', INC => 'artist' });
$ws->search({ MBID => 'bd08eddf-b811-4653-b56b-892292c291bc', INC => 'releases' });
$ws->search({ MBID => 'bd08eddf-b811-4653-b56b-892292c291bc', INC => 'puids' });
$ws->search({ MBID => 'bd08eddf-b811-4653-b56b-892292c291bc', INC => 'artist-rels' });
$ws->search({ MBID => 'bd08eddf-b811-4653-b56b-892292c291bc', INC => 'release-rels' });
$ws->search({ MBID => 'bd08eddf-b811-4653-b56b-892292c291bc', INC => 'track-rels' });
$ws->search({ MBID => 'bd08eddf-b811-4653-b56b-892292c291bc', INC => 'url-rels' });
Multiple INC params can be delimited by whitespace, commas, or + characters.
$ws->search({ MBID => 'bd08eddf-b811-4653-b56b-892292c291bc', INC => 'artist url-rels' });
$ws->search({ MBID => 'bd08eddf-b811-4653-b56b-892292c291bc', INC => 'artist,url-rels' });
$ws->search({ MBID => 'bd08eddf-b811-4653-b56b-892292c291bc', INC => 'artist+url-rels' });
Copyright 2006-2007 by Bob Faist
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
