1# -*- perl -*- 2# !!! DO NOT EDIT !!! 3# This file was automatically generated. 4package Net::Amazon::Validate::Type::ItemSearch; 5 6use 5.006; 7use strict; 8use warnings; 9 10use constant RESPONSEGROUP_VALID_VALUES => { 11 'Accessories' => 1, 12 'AlternateVersions' => 1, 13 'BrowseNodes' => 1, 14 'Collections' => 1, 15 'EditorialReview' => 1, 16 'Images' => 1, 17 'ItemAttributes' => 1, 18 'ItemIds' => 1, 19 'Large' => 1, 20 'ListmaniaLists' => 1, 21 'Medium' => 1, 22 'MerchantItemAttributes' => 1, 23 'OfferFull' => 1, 24 'OfferListings' => 1, 25 'OfferSummary' => 1, 26 'Offers' => 1, 27 'PromotionDetails' => 1, 28 'PromotionSummary' => 1, 29 'RelatedItems' => 1, 30 'Reviews' => 1, 31 'SalesRank' => 1, 32 'SearchBins' => 1, 33 'Similarities' => 1, 34 'Small' => 1, 35 'Subjects' => 1, 36 'TaggedGuides' => 1, 37 'TaggedItems' => 1, 38 'TaggedListmaniaLists' => 1, 39 'Tags' => 1, 40 'TagsSummary' => 1, 41 'Tracks' => 1, 42 'VariationMatrix' => 1, 43 'VariationMinimum' => 1, 44 'VariationOffers' => 1, 45 'VariationSummary' => 1, 46 'Variations' => 1, 47}; 48 49sub new { 50 my ($class , %options) = @_; 51 my $self = { 52 %options, 53 }; 54 bless $self, $class; 55} 56 57sub assert { 58 my ($self, $value, $name, $href) = @_; 59 die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; 60} 61 62sub validate { 63 my ($self, $value, $name, $href) = @_; 64 if ( ref ($value) eq 'ARRAY' ) { 65 $self->assert($_, $name, $href) for (@$value); 66 } else { 67 $self->assert($value, $name, $href); 68 } 69} 70 71sub ResponseGroup { 72 my ($self, $value) = @_; 73 $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); 74} 75 761; 77