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