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