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