1# -*- perl -*- 2# !!! DO NOT EDIT !!! 3# This file was automatically generated. 4package Net::Amazon::Validate::ItemSearch::fr::EAN; 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}}, 'Actor'; 18 push @{$self->{_options}}, 'Artist'; 19 push @{$self->{_options}}, 'AudienceRating'; 20 push @{$self->{_options}}, 'Author'; 21 push @{$self->{_options}}, 'Availability'; 22 push @{$self->{_options}}, 'Baby'; 23 push @{$self->{_options}}, 'Beauty'; 24 push @{$self->{_options}}, 'Blended'; 25 push @{$self->{_options}}, 'Books'; 26 push @{$self->{_options}}, 'Brand'; 27 push @{$self->{_options}}, 'BrowseNode'; 28 push @{$self->{_options}}, 'Classical'; 29 push @{$self->{_options}}, 'Composer'; 30 push @{$self->{_options}}, 'Condition'; 31 push @{$self->{_options}}, 'Conductor'; 32 push @{$self->{_options}}, 'Count'; 33 push @{$self->{_options}}, 'DVD'; 34 push @{$self->{_options}}, 'DeliveryMethod'; 35 push @{$self->{_options}}, 'Director'; 36 push @{$self->{_options}}, 'Electronics'; 37 push @{$self->{_options}}, 'ForeignBooks'; 38 push @{$self->{_options}}, 'Format'; 39 push @{$self->{_options}}, 'HealthPersonalCare'; 40 push @{$self->{_options}}, 'ISPUPostalCode'; 41 push @{$self->{_options}}, 'ItemPage'; 42 push @{$self->{_options}}, 'Jewelry'; 43 push @{$self->{_options}}, 'KeyWords'; 44 push @{$self->{_options}}, 'Keywords'; 45 push @{$self->{_options}}, 'Kitchen'; 46 push @{$self->{_options}}, 'MP3Downloads'; 47 push @{$self->{_options}}, 'Magazines'; 48 push @{$self->{_options}}, 'Manufacturer'; 49 push @{$self->{_options}}, 'MaximumPrice'; 50 push @{$self->{_options}}, 'MerchantId'; 51 push @{$self->{_options}}, 'MinimumPrice'; 52 push @{$self->{_options}}, 'Music'; 53 push @{$self->{_options}}, 'MusicLabel'; 54 push @{$self->{_options}}, 'MusicTracks'; 55 push @{$self->{_options}}, 'OfficeProducts'; 56 push @{$self->{_options}}, 'Orchestra'; 57 push @{$self->{_options}}, 'Performer'; 58 push @{$self->{_options}}, 'PostalCode'; 59 push @{$self->{_options}}, 'Power'; 60 push @{$self->{_options}}, 'Publisher'; 61 push @{$self->{_options}}, 'Software'; 62 push @{$self->{_options}}, 'SoftwareVideoGames'; 63 push @{$self->{_options}}, 'Sort'; 64 push @{$self->{_options}}, 'State'; 65 push @{$self->{_options}}, 'TextStream'; 66 push @{$self->{_options}}, 'Title'; 67 push @{$self->{_options}}, 'VHS'; 68 push @{$self->{_options}}, 'Video'; 69 push @{$self->{_options}}, 'VideoGames'; 70 push @{$self->{_options}}, 'Watches'; 71 72 bless $self, $class; 73} 74 75sub user_or_default { 76 my ($self, $user) = @_; 77 if (defined $user && length($user) > 0) { 78 return $self->find_match($user); 79 } 80 return $self->default(); 81} 82 83sub default { 84 my ($self) = @_; 85 return $self->{_default}; 86} 87 88sub find_match { 89 my ($self, $value) = @_; 90 for (@{$self->{_options}}) { 91 return $_ if lc($_) eq lc($value); 92 } 93 die "$value is not a valid value for fr::EAN!\n"; 94} 95 961; 97 98__END__ 99 100=head1 NAME 101 102Net::Amazon::Validate::ItemSearch::fr::EAN - valid search indicies 103for the fr locale and the EAN SearchIndex. 104 105=head1 DESCRIPTION 106 107The default value is Books, unless mode is specified. 108 109The list of available values are: 110 111 Actor 112 Artist 113 AudienceRating 114 Author 115 Availability 116 Baby 117 Beauty 118 Blended 119 Books 120 Brand 121 BrowseNode 122 Classical 123 Composer 124 Condition 125 Conductor 126 Count 127 DVD 128 DeliveryMethod 129 Director 130 Electronics 131 ForeignBooks 132 Format 133 HealthPersonalCare 134 ISPUPostalCode 135 ItemPage 136 Jewelry 137 KeyWords 138 Keywords 139 Kitchen 140 MP3Downloads 141 Magazines 142 Manufacturer 143 MaximumPrice 144 MerchantId 145 MinimumPrice 146 Music 147 MusicLabel 148 MusicTracks 149 OfficeProducts 150 Orchestra 151 Performer 152 PostalCode 153 Power 154 Publisher 155 Software 156 SoftwareVideoGames 157 Sort 158 State 159 TextStream 160 Title 161 VHS 162 Video 163 VideoGames 164 Watches 165 166=cut 167