1# -*- perl -*-
2# !!! DO NOT EDIT !!!
3# This file was automatically generated.
4package Net::Amazon::Validate::ItemSearch::us::OfficeProducts;
5
6use 5.006;
7use strict;
8use warnings;
9
10sub new {
11    my ($class , %options) = @_;
12    my $self = {
13        '_default' => 'Title',
14        %options,
15    };
16
17    push @{$self->{_options}}, 'Brand';
18    push @{$self->{_options}}, 'BrowseNode';
19    push @{$self->{_options}}, 'Condition';
20    push @{$self->{_options}}, 'ItemPage';
21    push @{$self->{_options}}, 'Keywords';
22    push @{$self->{_options}}, 'Manufacturer';
23    push @{$self->{_options}}, 'MaximumPrice';
24    push @{$self->{_options}}, 'MerchantId';
25    push @{$self->{_options}}, 'MinimumPrice';
26    push @{$self->{_options}}, 'Sort';
27    push @{$self->{_options}}, 'State';
28    push @{$self->{_options}}, 'Title';
29
30    bless $self, $class;
31}
32
33sub user_or_default {
34    my ($self, $user) = @_;
35    if (defined $user && length($user) > 0) {
36        return $self->find_match($user);
37    }
38    return $self->default();
39}
40
41sub default {
42    my ($self) = @_;
43    return $self->{_default};
44}
45
46sub find_match {
47    my ($self, $value) = @_;
48    for (@{$self->{_options}}) {
49        return $_ if lc($_) eq lc($value);
50    }
51    die "$value is not a valid value for us::OfficeProducts!\n";
52}
53
541;
55
56__END__
57
58=head1 NAME
59
60Net::Amazon::Validate::ItemSearch::us::OfficeProducts - valid search indicies
61for the us locale and the OfficeProducts SearchIndex.
62
63=head1 DESCRIPTION
64
65The default value is Title, unless mode is specified.
66
67The list of available values are:
68
69    Brand
70    BrowseNode
71    Condition
72    ItemPage
73    Keywords
74    Manufacturer
75    MaximumPrice
76    MerchantId
77    MinimumPrice
78    Sort
79    State
80    Title
81
82=cut
83