1# -*- perl -*- 2# !!! DO NOT EDIT !!! 3# This file was automatically generated. 4package Net::Amazon::Validate::ItemSearch::fr::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 fr::Actor!\n"; 44} 45 461; 47 48__END__ 49 50=head1 NAME 51 52Net::Amazon::Validate::ItemSearch::fr::Actor - valid search indices for the fr 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