# -*- perl -*-
# !!! DO NOT EDIT !!!
# This file was automatically generated.
package Net::Amazon::Validate::Type::VehicleSearch;
use 5.006;
use strict;
use warnings;
use constant RESPONSEGROUP_VALID_VALUES => {
'VehicleMakes' => 1,
'VehicleModels' => 1,
'VehicleOptions' => 1,
'VehicleTrims' => 1,
'VehicleYears' => 1,
};
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;