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