1# -*- perl -*- 2# !!! DO NOT EDIT !!! 3# This file was automatically generated. 4package Net::Amazon::Validate::ItemSearch::ca::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}}, 'Blended'; 22 push @{$self->{_options}}, 'Books'; 23 push @{$self->{_options}}, 'Brand'; 24 push @{$self->{_options}}, 'BrowseNode'; 25 push @{$self->{_options}}, 'Classical'; 26 push @{$self->{_options}}, 'Composer'; 27 push @{$self->{_options}}, 'Condition'; 28 push @{$self->{_options}}, 'Conductor'; 29 push @{$self->{_options}}, 'Count'; 30 push @{$self->{_options}}, 'DVD'; 31 push @{$self->{_options}}, 'Director'; 32 push @{$self->{_options}}, 'Electronics'; 33 push @{$self->{_options}}, 'ForeignBooks'; 34 push @{$self->{_options}}, 'ItemPage'; 35 push @{$self->{_options}}, 'Keywords'; 36 push @{$self->{_options}}, 'Manufacturer'; 37 push @{$self->{_options}}, 'MaximumPrice'; 38 push @{$self->{_options}}, 'MerchantId'; 39 push @{$self->{_options}}, 'MinimumPrice'; 40 push @{$self->{_options}}, 'Music'; 41 push @{$self->{_options}}, 'MusicLabel'; 42 push @{$self->{_options}}, 'Power'; 43 push @{$self->{_options}}, 'Publisher'; 44 push @{$self->{_options}}, 'ReleaseDate'; 45 push @{$self->{_options}}, 'Software'; 46 push @{$self->{_options}}, 'SoftwareVideoGames'; 47 push @{$self->{_options}}, 'Sort'; 48 push @{$self->{_options}}, 'Title'; 49 push @{$self->{_options}}, 'VHS'; 50 push @{$self->{_options}}, 'Video'; 51 push @{$self->{_options}}, 'VideoGames'; 52 53 bless $self, $class; 54} 55 56sub user_or_default { 57 my ($self, $user) = @_; 58 if (defined $user && length($user) > 0) { 59 return $self->find_match($user); 60 } 61 return $self->default(); 62} 63 64sub default { 65 my ($self) = @_; 66 return $self->{_default}; 67} 68 69sub find_match { 70 my ($self, $value) = @_; 71 for (@{$self->{_options}}) { 72 return $_ if lc($_) eq lc($value); 73 } 74 die "$value is not a valid value for ca::EAN!\n"; 75} 76 771; 78 79__END__ 80 81=head1 NAME 82 83Net::Amazon::Validate::ItemSearch::ca::EAN - valid search indicies 84for the ca locale and the EAN SearchIndex. 85 86=head1 DESCRIPTION 87 88The default value is Books, unless mode is specified. 89 90The list of available values are: 91 92 Actor 93 Artist 94 AudienceRating 95 Author 96 Blended 97 Books 98 Brand 99 BrowseNode 100 Classical 101 Composer 102 Condition 103 Conductor 104 Count 105 DVD 106 Director 107 Electronics 108 ForeignBooks 109 ItemPage 110 Keywords 111 Manufacturer 112 MaximumPrice 113 MerchantId 114 MinimumPrice 115 Music 116 MusicLabel 117 Power 118 Publisher 119 ReleaseDate 120 Software 121 SoftwareVideoGames 122 Sort 123 Title 124 VHS 125 Video 126 VideoGames 127 128=cut 129