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