1# -*- perl -*- 2# !!! DO NOT EDIT !!! 3# This file was automatically generated. 4package Net::Amazon::Validate::ItemSearch::jp::Classical; 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}}, 'Actor'; 18 push @{$self->{_options}}, 'Availability'; 19 push @{$self->{_options}}, 'BrowseNode'; 20 push @{$self->{_options}}, 'Composer'; 21 push @{$self->{_options}}, 'Conductor'; 22 push @{$self->{_options}}, 'Count'; 23 push @{$self->{_options}}, 'Format'; 24 push @{$self->{_options}}, 'ItemPage'; 25 push @{$self->{_options}}, 'Keywords'; 26 push @{$self->{_options}}, 'Magazines'; 27 push @{$self->{_options}}, 'MusicLabel'; 28 push @{$self->{_options}}, 'Orchestra'; 29 push @{$self->{_options}}, 'Performer'; 30 push @{$self->{_options}}, 'Sort'; 31 push @{$self->{_options}}, 'Title'; 32 33 bless $self, $class; 34} 35 36sub user_or_default { 37 my ($self, $user) = @_; 38 if (defined $user && length($user) > 0) { 39 return $self->find_match($user); 40 } 41 return $self->default(); 42} 43 44sub default { 45 my ($self) = @_; 46 return $self->{_default}; 47} 48 49sub find_match { 50 my ($self, $value) = @_; 51 for (@{$self->{_options}}) { 52 return $_ if lc($_) eq lc($value); 53 } 54 die "$value is not a valid value for jp::Classical!\n"; 55} 56 571; 58 59__END__ 60 61=head1 NAME 62 63Net::Amazon::Validate::ItemSearch::jp::Classical - valid search indicies 64for the jp locale and the Classical SearchIndex. 65 66=head1 DESCRIPTION 67 68The default value is Title, unless mode is specified. 69 70The list of available values are: 71 72 Actor 73 Availability 74 BrowseNode 75 Composer 76 Conductor 77 Count 78 Format 79 ItemPage 80 Keywords 81 Magazines 82 MusicLabel 83 Orchestra 84 Performer 85 Sort 86 Title 87 88=cut 89