1###################################################################### 2package Net::Amazon::Request::MusicLabel; 3###################################################################### 4use warnings; 5use strict; 6use base qw(Net::Amazon::Request); 7 8################################################## 9sub new { 10################################################## 11 my($class, %options) = @_; 12 13 $class->_assert_options_defined(\%options, 14 'musiclabel'); 15 16 $class->_convert_option(\%options, 17 'musiclabel', 18 'MusicLabel'); 19 20 my $self = $class->SUPER::new(%options); 21 22 $self->_convert_itemsearch(); 23 24 bless $self, $class; # reconsecrate 25} 26 271; 28 29__END__ 30 31=head1 NAME 32 33Net::Amazon::Request::MusicLabel - Class for submitting MusicLabel requests 34 35=head1 SYNOPSIS 36 37 use Net::Amazon; 38 use Net::Amazon::Request::MusicLabel; 39 40 my $ua = Net::Amazon->new( 41 token => 'YOUR_AMZN_TOKEN' 42 ); 43 44 my $req = Net::Amazon::Request::MusicLabel->new( 45 MusicLabel => 'James Patterson' 46 ); 47 48 # Response is of type Net::Amazon::Response::MusicLabel 49 my $resp = $ua->request($req); 50 51=head1 DESCRIPTION 52 53C<Net::Amazon::Request::MusicLabel> is a class used to submit MusicLabel search 54requests to the Amazon web service. 55 56The MusicLabel to search for is specified in the C<MusicLabel> parameter. 57 58Upon success, the responses' C<properties()> method will return a list of 59C<Net::Amazon::Property::Music> objects. 60 61Check L<Net::Amazon::Request> for common request parameters not listed here. 62 63=head2 METHODS 64 65=over 4 66 67=item new( MusicLabel => $MusicLabel ) 68 69Constructs a new C<Net::Amazon::Request::MusicLabel> object, used to query 70the Amazon web service for items of a given MusicLabel. 71 72=back 73 74=head1 AUTHORS 75 76Christopher Boumenot, E<lt>boumenot@gmail.comE<gt> 77 78=head1 COPYRIGHT AND LICENSE 79 80Copyright 2006 by Christopher Boumenot, E<lt>boumenot@gmail.comE<gt> 81 82This library is free software; you can redistribute it and/or modify 83it under the same terms as Perl itself. 84 85=cut 86