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