# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Manufacturer; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Apparel', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'Hobbies'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Manufacturer!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Manufacturer; =head1 DESCRIPTION The default value is Apparel, unless mode is specified. The list of available values are: Apparel Baby HealthPersonalCare Hobbies Kitchen SportingGoods Toys VideoGames =cut