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