Net::Amazon::Property::Music - Class for pop CDs on amazon.com
use Net::Amazon;
# ...
if($resp->is_success()) {
for my $prop ($resp->properties) {
print join("/", $_->artists(), " ",
$_->album(), " ",
$_->label(), " ",
$_->year(), " ";
$_->upc(), " ";
$_->media(), " ";
$_->nummedia(), "\n";
}
"Net::Amazon::Property::Music" is derived from
"Net::Amazon::Property" and on top of the
all-purpose methods the base class provides, it offers specialized accessors
for popular music CD parameters.
- artists()
- Returns a list of the CD's artists. There's also a
"artist()" method which just returns the
first artist.
- tracks()
- Returns a list of the CD's track titles. Tracks are ordered as they appear
on the media. Track one is at offset zero in the tracks() list. If
there are multiple media then tracks are appended to the same list. There
is currently no way to determine which track belongs to which media.
(Amazon returns these data, but it is not used by Net::Amazon.)
- label()
- Returns the music label as a string.
- album()
- Returns the CD's title as a string.
- upc()
- Returns the CD's UPC as a string.
- media()
- Returns the CD's media type as a string.
- nummedia()
- Returns the CD's number of media (number of discs) as a string. Amazon
doesn't always send this back, so if you get undef assume it is 1.
- new(xmlref => $xmlref)
- Initializes an object by passing a hash of hashes structure containing the
XML data returned from the service. Usually, this is just used by
"Net::Amazon" internally to initialize
objects for on backcoming data.
Check out Net::Amazon::Property for all-purpose accessors, like
"year",
"OurPrice",
"ListPrice", etc.
Mike Schilli, <m@perlmeister.com>
Thanks to Padraic Renaghan <padraic@renaghan.com<gt> for adding the
upc/media/nummedia fields.
Copyright 2003 by Mike Schilli <m@perlmeister.com>
This library is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.