.\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.40)
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  \*(C+ will
.\" give a nicer C++.  Capital omega is used to do unbreakable dashes and
.\" therefore won't be available.  \*(C` and \*(C' expand to `' in nroff,
.\" nothing in troff, for use with C<>.
.tr \(*W-
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
.    ds C`
.    ds C'
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el       .ds Aq '
.\"
.\" If the F register is >0, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.\"
.\" Avoid warning from groff about undefined register 'F'.
.de IX
..
.nr rF 0
.if \n(.g .if rF .nr rF 1
.if (\n(rF:(\n(.g==0)) \{\
.    if \nF \{\
.        de IX
.        tm Index:\\$1\t\\n%\t"\\$2"
..
.        if !\nF==2 \{\
.            nr % 0
.            nr F 2
.        \}
.    \}
.\}
.rr rF
.\" ========================================================================
.\"
.IX Title "Net::Amazon::Property::Music 3pm"
.TH Net::Amazon::Property::Music 3pm "2021-01-02" "perl v5.32.0" "User Contributed Perl Documentation"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
.nh
.SH "NAME"
Net::Amazon::Property::Music \- Class for pop CDs on amazon.com
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 1
\&  use Net::Amazon;
\&
\&  # ...
\&
\&  if($resp\->is_success()) {
\&      for my $prop ($resp\->properties) {
\&          print join("/", $_\->artists(), " ",
\&                $_\->album(), " ",
\&                $_\->label(), " ",
\&                $_\->year(), " ";
\&                $_\->upc(), " ";
\&                $_\->media(), " ";
\&                $_\->nummedia(), "\en";
\&  }
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
\&\f(CW\*(C`Net::Amazon::Property::Music\*(C'\fR is derived from 
\&\f(CW\*(C`Net::Amazon::Property\*(C'\fR and on top of the all-purpose
methods the base class provides, it offers specialized accessors for
popular music \s-1CD\s0 parameters.
.SS "\s-1METHODS\s0"
.IX Subsection "METHODS"
.IP "\fBartists()\fR" 4
.IX Item "artists()"
Returns a list of the \s-1CD\s0's artists. There's also a \f(CW\*(C`artist()\*(C'\fR method
which just returns the first artist.
.IP "\fBtracks()\fR" 4
.IX Item "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 \fBtracks()\fR 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.)
.IP "\fBlabel()\fR" 4
.IX Item "label()"
Returns the music label as a string.
.IP "\fBalbum()\fR" 4
.IX Item "album()"
Returns the \s-1CD\s0's title as a string.
.IP "\fBupc()\fR" 4
.IX Item "upc()"
Returns the \s-1CD\s0's \s-1UPC\s0 as a string.
.IP "\fBmedia()\fR" 4
.IX Item "media()"
Returns the \s-1CD\s0's media type as a string.
.IP "\fBnummedia()\fR" 4
.IX Item "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.
.ie n .IP "new(xmlref => $xmlref)" 4
.el .IP "new(xmlref => \f(CW$xmlref\fR)" 4
.IX Item "new(xmlref => $xmlref)"
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
\&\f(CW\*(C`Net::Amazon\*(C'\fR internally to initialize objects for on backcoming
data.
.PP
Check out Net::Amazon::Property for all-purpose accessors, like
\&\f(CW\*(C`year\*(C'\fR, \f(CW\*(C`OurPrice\*(C'\fR, \f(CW\*(C`ListPrice\*(C'\fR, etc.
.SH "AUTHOR"
.IX Header "AUTHOR"
Mike Schilli, <m@perlmeister.com>
.SH "THANKS"
.IX Header "THANKS"
Thanks to Padraic Renaghan <padraic@renaghan.com<gt> for adding
the upc/media/nummedia fields.
.SH "COPYRIGHT AND LICENSE"
.IX Header "COPYRIGHT AND LICENSE"
Copyright 2003 by Mike Schilli <m@perlmeister.com>
.PP
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.