1# -*- perl -*-
2# !!! DO NOT EDIT !!!
3# This file was automatically generated.
4package Net::Amazon::Validate::ItemSearch::de::MusicLabel;
5
6use 5.006;
7use strict;
8use warnings;
9
10sub new {
11    my ($class , %options) = @_;
12    my $self = {
13        '_default' => 'Music',
14        %options,
15    };
16
17    push @{$self->{_options}}, 'Classical';
18    push @{$self->{_options}}, 'DVD';
19    push @{$self->{_options}}, 'Music';
20
21    bless $self, $class;
22}
23
24sub user_or_default {
25    my ($self, $user) = @_;
26    if (defined $user && length($user) > 0) {
27        return $self->find_match($user);
28    }
29    return $self->default();
30}
31
32sub default {
33    my ($self) = @_;
34    return $self->{_default};
35}
36
37sub find_match {
38    my ($self, $value) = @_;
39    for (@{$self->{_options}}) {
40        return $_ if lc($_) eq lc($value);
41    }
42    die "$value is not a valid value for de::MusicLabel!\n";
43}
44
451;
46
47__END__
48
49=head1 NAME
50
51Net::Amazon::Validate::ItemSearch::de::MusicLabel - valid search indices for the de locale and the MusicLabel operation.
52
53=head1 DESCRIPTION
54
55The default value is Music, unless mode is specified.
56
57The list of available values are:
58
59    Classical
60    DVD
61    Music
62
63=cut
64