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