++ed by:
ADAMJS

1 PAUSE user
1 non-PAUSE user.

Christopher Boumenot
and 1 contributors

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.