HEX
Server: Apache
System: Linux pdx1-shared-a1-38 6.6.104-grsec-jammy+ #3 SMP Tue Sep 16 00:28:11 UTC 2025 x86_64
User: mmickelson (3396398)
PHP: 8.1.31
Disabled: NONE
Upload Files
File: //usr/share/perl5/Net/Amazon/Validate/Type/ItemLookup.pm
# -*- perl -*-
# !!! DO NOT EDIT !!!
# This file was automatically generated.
package Net::Amazon::Validate::Type::ItemLookup;

use 5.006;
use strict;
use warnings;

use constant RESPONSEGROUP_VALID_VALUES => {
    'Accessories' => 1,
    'AlternateVersions' => 1,
    'BrowseNodes' => 1,
    'Collections' => 1,
    'EditorialReview' => 1,
    'Images' => 1,
    'ItemAttributes' => 1,
    'ItemIds' => 1,
    'Large' => 1,
    'ListmaniaLists' => 1,
    'Medium' => 1,
    'MerchantItemAttributes' => 1,
    'OfferFull' => 1,
    'OfferListings' => 1,
    'OfferSummary' => 1,
    'Offers' => 1,
    'PromotionDetails' => 1,
    'PromotionSummary' => 1,
    'RelatedItems' => 1,
    'Reviews' => 1,
    'SalesRank' => 1,
    'Similarities' => 1,
    'Small' => 1,
    'Subjects' => 1,
    'TaggedGuides' => 1,
    'TaggedItems' => 1,
    'TaggedListmaniaLists' => 1,
    'Tags' => 1,
    'TagsSummary' => 1,
    'Tracks' => 1,
    'VariationImages' => 1,
    'VariationMatrix' => 1,
    'VariationMinimum' => 1,
    'VariationOffers' => 1,
    'VariationSummary' => 1,
    'Variations' => 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;