1# -*- perl -*- 2# !!! DO NOT EDIT !!! 3# This file was automatically generated. 4package Net::Amazon::Validate::ItemSearch::uk::Sort; 5 6use 5.006; 7use strict; 8use warnings; 9 10sub new { 11 my ($class , %options) = @_; 12 my $self = { 13 '_default' => 'Books', 14 %options, 15 }; 16 17 push @{$self->{_options}}, 'Apparel'; 18 push @{$self->{_options}}, 'Baby'; 19 push @{$self->{_options}}, 'Books'; 20 push @{$self->{_options}}, 'Classical'; 21 push @{$self->{_options}}, 'DVD'; 22 push @{$self->{_options}}, 'Electronics'; 23 push @{$self->{_options}}, 'HealthPersonalCare'; 24 push @{$self->{_options}}, 'HomeGarden'; 25 push @{$self->{_options}}, 'Kitchen'; 26 push @{$self->{_options}}, 'Music'; 27 push @{$self->{_options}}, 'MusicTracks'; 28 push @{$self->{_options}}, 'OutdoorLiving'; 29 push @{$self->{_options}}, 'Software'; 30 push @{$self->{_options}}, 'SoftwareVideoGames'; 31 push @{$self->{_options}}, 'Toys'; 32 push @{$self->{_options}}, 'VHS'; 33 push @{$self->{_options}}, 'Video'; 34 push @{$self->{_options}}, 'VideoGames'; 35 push @{$self->{_options}}, 'Watches'; 36 37 bless $self, $class; 38} 39 40sub user_or_default { 41 my ($self, $user) = @_; 42 if (defined $user && length($user) > 0) { 43 return $self->find_match($user); 44 } 45 return $self->default(); 46} 47 48sub default { 49 my ($self) = @_; 50 return $self->{_default}; 51} 52 53sub find_match { 54 my ($self, $value) = @_; 55 for (@{$self->{_options}}) { 56 return $_ if lc($_) eq lc($value); 57 } 58 die "$value is not a valid value for uk::Sort!\n"; 59} 60 611; 62 63__END__ 64 65=head1 NAME 66 67Net::Amazon::Validate::ItemSearch::uk::Sort - valid search indices for the uk locale and the Sort operation. 68 69=head1 DESCRIPTION 70 71The default value is Books, unless mode is specified. 72 73The list of available values are: 74 75 Apparel 76 Baby 77 Books 78 Classical 79 DVD 80 Electronics 81 HealthPersonalCare 82 HomeGarden 83 Kitchen 84 Music 85 MusicTracks 86 OutdoorLiving 87 Software 88 SoftwareVideoGames 89 Toys 90 VHS 91 Video 92 VideoGames 93 Watches 94 95=cut 96