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