1# -*- perl -*- 2# !!! DO NOT EDIT !!! 3# This file was automatically generated. 4package Net::Amazon::Validate::ItemSearch::es::Music; 5 6use 5.006; 7use strict; 8use warnings; 9 10sub new { 11 my ($class , %options) = @_; 12 my $self = { 13 '_default' => 'Title', 14 %options, 15 }; 16 17 push @{$self->{_options}}, 'Artist'; 18 push @{$self->{_options}}, 'Availability'; 19 push @{$self->{_options}}, 'BrowseNode'; 20 push @{$self->{_options}}, 'Keywords'; 21 push @{$self->{_options}}, 'MaximumPrice'; 22 push @{$self->{_options}}, 'MerchantId'; 23 push @{$self->{_options}}, 'MinimumPrice'; 24 push @{$self->{_options}}, 'MusicLabel'; 25 push @{$self->{_options}}, 'Sort'; 26 push @{$self->{_options}}, 'Title'; 27 28 bless $self, $class; 29} 30 31sub user_or_default { 32 my ($self, $user) = @_; 33 if (defined $user && length($user) > 0) { 34 return $self->find_match($user); 35 } 36 return $self->default(); 37} 38 39sub default { 40 my ($self) = @_; 41 return $self->{_default}; 42} 43 44sub find_match { 45 my ($self, $value) = @_; 46 for (@{$self->{_options}}) { 47 return $_ if lc($_) eq lc($value); 48 } 49 die "$value is not a valid value for es::Music!\n"; 50} 51 521; 53 54__END__ 55 56=head1 NAME 57 58Net::Amazon::Validate::ItemSearch::es::Music - valid search indicies 59for the es locale and the Music SearchIndex. 60 61=head1 DESCRIPTION 62 63The default value is Title, unless mode is specified. 64 65The list of available values are: 66 67 Artist 68 Availability 69 BrowseNode 70 Keywords 71 MaximumPrice 72 MerchantId 73 MinimumPrice 74 MusicLabel 75 Sort 76 Title 77 78=cut 79