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