1# -*- perl -*- 2# !!! DO NOT EDIT !!! 3# This file was automatically generated. 4package Net::Amazon::Validate::Type::TagLookup; 5 6use 5.006; 7use strict; 8use warnings; 9 10use constant RESPONSEGROUP_VALID_VALUES => { 11 'TaggedGuides' => 1, 12 'TaggedItems' => 1, 13 'TaggedListmaniaLists' => 1, 14 'Tags' => 1, 15 'TagsSummary' => 1, 16}; 17 18sub new { 19 my ($class , %options) = @_; 20 my $self = { 21 %options, 22 }; 23 bless $self, $class; 24} 25 26sub assert { 27 my ($self, $value, $name, $href) = @_; 28 die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; 29} 30 31sub validate { 32 my ($self, $value, $name, $href) = @_; 33 if ( ref ($value) eq 'ARRAY' ) { 34 $self->assert($_, $name, $href) for (@$value); 35 } else { 36 $self->assert($value, $name, $href); 37 } 38} 39 40sub ResponseGroup { 41 my ($self, $value) = @_; 42 $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); 43} 44 451; 46