Net::Amazon::Request::Similar - request class for 'Similarities Search'

Net-Amazon documentation Contained in the Net-Amazon distribution.

Index

Code Index:

NAME

Top

Net::Amazon::Request::Similar - request class for 'Similarities Search'

SYNOPSIS

Top

  use Net::Amazon;
  use Net::Amazon::Request::Similar;

  my $ua = Net::Amazon->new(
      token       => 'YOUR_AMZN_TOKEN'
  );

  my $req = Net::Amazon::Request::Similar->new( 
      similar => 'B00005B6TL',
  );

    # Response is of type Net::Amazon::Response::Similar
  my $resp = $ua->request($req);

DESCRIPTION

Top

Net::Amazon::Request::Similar is a class used to request so-called Similarities Searches from the Amazon web service.

The asin parameter specifies the ASIN of the item which you want to get similar items for.

Upon success, the response's properties() method will return a list of Net::Amazon::Property::* objects.

METHODS

new(similar => $asin)

Constructs a new Net::Amazon::Request::Similar object.

Check Net::Amazon::Request for common request parameters not listed here.

AUTHOR

Top

Mike Schilli, <m@perlmeister.com>

COPYRIGHT AND LICENSE

Top

Copyright 2003 by Mike Schilli <m@perlmeister.com>

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Net-Amazon documentation Contained in the Net-Amazon distribution. 
######################################################################
package Net::Amazon::Request::Similar;
######################################################################
use warnings;
use strict;
use base qw(Net::Amazon::Request);

our $AMZN_XML_URL     = "http://xml.amazon.com/onca/xml3";

##################################################
sub amzn_xml_url {
##################################################
    return $AMZN_XML_URL;
}

##################################################
sub new {
##################################################
    my($class, %options) = @_;

    # For backwards compatibility
    $class->_convert_option(\%options, 'asin', 'similar');

    $class->_assert_options_defined(\%options, 'similar');

    $class->_convert_option(\%options,
                            'similar',
                            'ItemId');

    my $self = $class->SUPER::new(%options);

    bless $self, $class;   # reconsecrate
}

1;

__END__