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