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