1# -*- perl -*- 2# !!! DO NOT EDIT !!! 3# This file was automatically generated. 4package Net::Amazon::Validate::ItemSearch::ca::Publisher; 5 6use 5.006; 7use strict; 8use warnings; 9 10sub new { 11 my ($class , %options) = @_; 12 my $self = { 13 '_default' => 'Books', 14 %options, 15 }; 16 17 push @{$self->{_options}}, 'Books'; 18 push @{$self->{_options}}, 'DVD'; 19 push @{$self->{_options}}, 'ForeignBooks'; 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 ca::Publisher!\n"; 45} 46 471; 48 49__END__ 50 51=head1 NAME 52 53Net::Amazon::Validate::ItemSearch::ca::Publisher - valid search indices for the ca locale and the Publisher operation. 54 55=head1 DESCRIPTION 56 57The default value is Books, unless mode is specified. 58 59The list of available values are: 60 61 Books 62 DVD 63 ForeignBooks 64 VHS 65 Video 66 67=cut 68