Net::Amazon::Property::Music (3pm)

  use Net::Amazon;

  # ...

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

\*(C`Net::Amazon::Property::Music\*(C' is derived from \*(C`Net::Amazon::Property\*(C' and on top of the all-purpose methods the base class provides, it offers specialized accessors for popular music \s-1CD\s0 parameters.

\s-1METHODS\s0

artists()

Returns a list of the \s-1CD\s0's artists. There's also a \*(C`artist()\*(C' method which just returns the first artist.

tracks()

Returns a list of the \s-1CD\s0'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 \s-1CD\s0's title as a string.

upc()

Returns the \s-1CD\s0's \s-1UPC\s0 as a string.

media()

Returns the \s-1CD\s0's media type as a string.

nummedia()

Returns the \s-1CD\s0'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. Initializes an object by passing a hash of hashes structure containing the \s-1XML\s0 data returned from the service. Usually, this is just used by \*(C`Net::Amazon\*(C' internally to initialize objects for on backcoming data.

Check out Net::Amazon::Property for all-purpose accessors, like \*(C`year\*(C', \*(C`OurPrice\*(C', \*(C`ListPrice\*(C', etc.

Mike Schilli, <[email protected]>

Thanks to Padraic Renaghan <[email protected]<gt> for adding the upc/media/nummedia fields.

Copyright 2003 by Mike Schilli <[email protected]>

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.