1# -*- perl -*-
2# !!! DO NOT EDIT !!!
3# This file was automatically generated.
4package Net::Amazon::Validate::ItemSearch::de::Keywords;
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}}, 'Automotive';
19    push @{$self->{_options}}, 'Baby';
20    push @{$self->{_options}}, 'Beauty';
21    push @{$self->{_options}}, 'Blended';
22    push @{$self->{_options}}, 'Books';
23    push @{$self->{_options}}, 'Classical';
24    push @{$self->{_options}}, 'DVD';
25    push @{$self->{_options}}, 'Electronics';
26    push @{$self->{_options}}, 'ForeignBooks';
27    push @{$self->{_options}}, 'HealthPersonalCare';
28    push @{$self->{_options}}, 'HomeGarden';
29    push @{$self->{_options}}, 'Jewelry';
30    push @{$self->{_options}}, 'Kitchen';
31    push @{$self->{_options}}, 'MP3Downloads';
32    push @{$self->{_options}}, 'Magazines';
33    push @{$self->{_options}}, 'Music';
34    push @{$self->{_options}}, 'MusicTracks';
35    push @{$self->{_options}}, 'OfficeProducts';
36    push @{$self->{_options}}, 'OutdoorLiving';
37    push @{$self->{_options}}, 'PCHardware';
38    push @{$self->{_options}}, 'Photo';
39    push @{$self->{_options}}, 'Software';
40    push @{$self->{_options}}, 'SoftwareVideoGames';
41    push @{$self->{_options}}, 'SportingGoods';
42    push @{$self->{_options}}, 'Tools';
43    push @{$self->{_options}}, 'Toys';
44    push @{$self->{_options}}, 'VHS';
45    push @{$self->{_options}}, 'Video';
46    push @{$self->{_options}}, 'VideoGames';
47    push @{$self->{_options}}, 'Watches';
48
49    bless $self, $class;
50}
51
52sub user_or_default {
53    my ($self, $user) = @_;
54    if (defined $user && length($user) > 0) {
55        return $self->find_match($user);
56    }
57    return $self->default();
58}
59
60sub default {
61    my ($self) = @_;
62    return $self->{_default};
63}
64
65sub find_match {
66    my ($self, $value) = @_;
67    for (@{$self->{_options}}) {
68        return $_ if lc($_) eq lc($value);
69    }
70    die "$value is not a valid value for de::Keywords!\n";
71}
72
731;
74
75__END__
76
77=head1 NAME
78
79Net::Amazon::Validate::ItemSearch::de::Keywords - valid search indicies
80for the de locale and the Keywords SearchIndex.
81
82=head1 DESCRIPTION
83
84The default value is Books, unless mode is specified.
85
86The list of available values are:
87
88    Apparel
89    Automotive
90    Baby
91    Beauty
92    Blended
93    Books
94    Classical
95    DVD
96    Electronics
97    ForeignBooks
98    HealthPersonalCare
99    HomeGarden
100    Jewelry
101    Kitchen
102    MP3Downloads
103    Magazines
104    Music
105    MusicTracks
106    OfficeProducts
107    OutdoorLiving
108    PCHardware
109    Photo
110    Software
111    SoftwareVideoGames
112    SportingGoods
113    Tools
114    Toys
115    VHS
116    Video
117    VideoGames
118    Watches
119
120=cut
121