1# -*- perl -*-
2# !!! DO NOT EDIT !!!
3# This file was automatically generated.
4package Net::Amazon::Validate::ItemSearch::jp::MinimumPrice;
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}}, 'Baby';
18    push @{$self->{_options}}, 'Books';
19    push @{$self->{_options}}, 'Electronics';
20    push @{$self->{_options}}, 'ForeignBooks';
21    push @{$self->{_options}}, 'HealthPersonalCare';
22    push @{$self->{_options}}, 'Hobbies';
23    push @{$self->{_options}}, 'Kitchen';
24    push @{$self->{_options}}, 'MusicTracks';
25    push @{$self->{_options}}, 'Software';
26    push @{$self->{_options}}, 'SportingGoods';
27    push @{$self->{_options}}, 'Toys';
28    push @{$self->{_options}}, 'VideoGames';
29    push @{$self->{_options}}, 'Watches';
30
31    bless $self, $class;
32}
33
34sub user_or_default {
35    my ($self, $user) = @_;
36    if (defined $user && length($user) > 0) {
37        return $self->find_match($user);
38    }
39    return $self->default();
40}
41
42sub default {
43    my ($self) = @_;
44    return $self->{_default};
45}
46
47sub find_match {
48    my ($self, $value) = @_;
49    for (@{$self->{_options}}) {
50        return $_ if lc($_) eq lc($value);
51    }
52    die "$value is not a valid value for jp::MinimumPrice!\n";
53}
54
551;
56
57__END__
58
59=head1 NAME
60
61Net::Amazon::Validate::ItemSearch::jp::MinimumPrice - valid search indices for the jp locale and the MinimumPrice operation.
62
63=head1 DESCRIPTION
64
65The default value is Books, unless mode is specified.
66
67The list of available values are:
68
69    Baby
70    Books
71    Electronics
72    ForeignBooks
73    HealthPersonalCare
74    Hobbies
75    Kitchen
76    MusicTracks
77    Software
78    SportingGoods
79    Toys
80    VideoGames
81    Watches
82
83=cut
84