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