1# -*- perl -*- 2# !!! DO NOT EDIT !!! 3# This file was automatically generated. 4package Net::Amazon::Validate::ItemSearch::us::Orchestra; 5 6use 5.006; 7use strict; 8use warnings; 9 10sub new { 11 my ($class , %options) = @_; 12 my $self = { 13 '_default' => 'Classical', 14 %options, 15 }; 16 17 push @{$self->{_options}}, 'Classical'; 18 push @{$self->{_options}}, 'Merchants'; 19 push @{$self->{_options}}, 'SilverMerchants'; 20 21 bless $self, $class; 22} 23 24sub user_or_default { 25 my ($self, $user) = @_; 26 if (defined $user && length($user) > 0) { 27 return $self->find_match($user); 28 } 29 return $self->default(); 30} 31 32sub default { 33 my ($self) = @_; 34 return $self->{_default}; 35} 36 37sub find_match { 38 my ($self, $value) = @_; 39 for (@{$self->{_options}}) { 40 return $_ if lc($_) eq lc($value); 41 } 42 die "$value is not a valid value for us::Orchestra!\n"; 43} 44 451; 46 47__END__ 48 49=head1 NAME 50 51Net::Amazon::Validate::ItemSearch::us::Orchestra - valid search indices for the us locale and the Orchestra operation. 52 53=head1 DESCRIPTION 54 55The default value is Classical, unless mode is specified. 56 57The list of available values are: 58 59 Classical 60 Merchants 61 SilverMerchants 62 63=cut 64