NAME¶

Net::Amazon::Property::Music - Class for pop CDs on amazon.com

SYNOPSIS¶

  use Net::Amazon;
  # ...
  if($resp->is_success()) {
      for my $prop ($resp->properties) {
          print join("/", $_->artists(), " ",
                $_->album(), " ",
                $_->label(), " ",
                $_->year(), " ";
                $_->upc(), " ";
                $_->media(), " ";
                $_->nummedia(), "\n";
  }

DESCRIPTION¶

"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.

METHODS¶

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.

AUTHOR¶

Mike Schilli, <m@perlmeister.com>

THANKS¶

Thanks to Padraic Renaghan <padraic@renaghan.com<gt> for adding the upc/media/nummedia fields.

COPYRIGHT AND LICENSE¶

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.