1Net::Amazon::Property::UMsuesricC(o3n)tributed Perl DocuNmeetn:t:aAtmiaoznon::Property::Music(3)
2
3
4
6 Net::Amazon::Property::Music - Class for pop CDs on amazon.com
7
9 use Net::Amazon;
10
11 # ...
12
13 if($resp->is_success()) {
14 for my $prop ($resp->properties) {
15 print join("/", $_->artists(), " ",
16 $_->album(), " ",
17 $_->label(), " ",
18 $_->year(), " ";
19 $_->upc(), " ";
20 $_->media(), " ";
21 $_->nummedia(), "\n";
22 }
23
25 "Net::Amazon::Property::Music" is derived from "Net::Amazon::Property"
26 and on top of the all-purpose methods the base class provides, it
27 offers specialized accessors for popular music CD parameters.
28
29 METHODS
30 artists()
31 Returns a list of the CD's artists. There's also a "artist()"
32 method which just returns the first artist.
33
34 tracks()
35 Returns a list of the CD's track titles. Tracks are ordered as
36 they appear on the media. Track one is at offset zero in the
37 tracks() list. If there are multiple media then tracks are
38 appended to the same list. There is currently no way to determine
39 which track belongs to which media. (Amazon returns these data,
40 but it is not used by Net::Amazon.)
41
42 label()
43 Returns the music label as a string.
44
45 album()
46 Returns the CD's title as a string.
47
48 upc()
49 Returns the CD's UPC as a string.
50
51 media()
52 Returns the CD's media type as a string.
53
54 nummedia()
55 Returns the CD's number of media (number of discs) as a string.
56 Amazon doesn't always send this back, so if you get undef assume it
57 is 1.
58
59 new(xmlref => $xmlref)
60 Initializes an object by passing a hash of hashes structure
61 containing the XML data returned from the service. Usually, this is
62 just used by "Net::Amazon" internally to initialize objects for on
63 backcoming data.
64
65 Check out Net::Amazon::Property for all-purpose accessors, like "year",
66 "OurPrice", "ListPrice", etc.
67
69 Mike Schilli, <m@perlmeister.com>
70
72 Thanks to Padraic Renaghan <padraic@renaghan.com<gt> for adding the
73 upc/media/nummedia fields.
74
76 Copyright 2003 by Mike Schilli <m@perlmeister.com>
77
78 This library is free software; you can redistribute it and/or modify it
79 under the same terms as Perl itself.
80
81
82
83perl v5.34.0 2021-07-22 Net::Amazon::Property::Music(3)