Net::Amazon::Request::UPC (3pm)

  use Net::Amazon;
  use Net::Amazon::Request::UPC;

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

  my $req = Net::Amazon::Request::UPC->new(
      upc  => '724381198421',
      mode => 'music',

  );

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

\*(C`Net::Amazon::Request::UPC\*(C' is a class used to submit \s-1UPC\s0 (product barcode) search requests to the Amazon web service.

The \s-1UPC\s0 number to search for is specified in the \*(C`upc\*(C' parameter. It currently works with the following values of the \*(C`mode\*(C' parameter: \*(C`music\*(C', \*(C`classical\*(C', \*(C`software\*(C', \*(C`dvd\*(C', \*(C`video\*(C', \*(C`vhs\*(C', \*(C`electronics\*(C', \*(C`pc-hardware\*(C', and \*(C`photo\*(C'.

Upon success, the response's \*(C`properties()\*(C' method will return a single \*(C`Net::Amazon::Property::Music\*(C' object.

\s-1METHODS\s0

Constructs a new \*(C`Net::Amazon::Request::UPC\*(C' object, used to query the Amazon web service for an item with the given \s-1UPC\s0 number.

Mike Schilli, <[email protected]>

Copyright 2003 by Mike Schilli <[email protected]>

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