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