The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

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.

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.

SEE ALSO

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.