diff options
| author | Andreas Brachold <vdr07@deltab.de> | 2007-11-11 06:55:13 +0000 |
|---|---|---|
| committer | Andreas Brachold <vdr07@deltab.de> | 2007-11-11 06:55:13 +0000 |
| commit | 3282be229999dc36c197b264d63063a18d136331 (patch) | |
| tree | 98a42db29d955b39e7bed1b599fdcc56c3a29de9 /lib/Net/Amazon/Request/BrowseNode.pm | |
| parent | cfdd733c17cfa4f1a43b827a656e9e53cc2524ac (diff) | |
| download | xxv-3282be229999dc36c197b264d63063a18d136331.tar.gz xxv-3282be229999dc36c197b264d63063a18d136331.tar.bz2 | |
* Update installation list with required modules
* Remove unused/doubled provided external perl moduls
Diffstat (limited to 'lib/Net/Amazon/Request/BrowseNode.pm')
| -rw-r--r-- | lib/Net/Amazon/Request/BrowseNode.pm | 137 |
1 files changed, 0 insertions, 137 deletions
diff --git a/lib/Net/Amazon/Request/BrowseNode.pm b/lib/Net/Amazon/Request/BrowseNode.pm deleted file mode 100644 index 2f8d92f..0000000 --- a/lib/Net/Amazon/Request/BrowseNode.pm +++ /dev/null @@ -1,137 +0,0 @@ -###################################################################### -package Net::Amazon::Request::BrowseNode; -###################################################################### -use warnings; -use strict; -use base qw(Net::Amazon::Request); - -################################################## -sub new { -################################################## - my($class, %options) = @_; - - $class->_assert_options_defined(\%options, - qw(browsenode mode)); - - $class->_convert_option(\%options, - 'browsenode', - 'BrowseNodeSearch', - \&_assert_node_is_numeric); - - my $self = $class->SUPER::new(%options); - - bless $self, $class; # reconsecrate -} - -## -## 'PRIVATE' FUNCTIONS -## - -# _assert_node_is_numeric( OPTIONS, KEY ) -# -# Takes a reference to a hash of OPTIONS and makes sure -# that the browse node id keyed by KEY is numeric. -# -# Returns if all is well, dies otherwise. -# -sub _assert_node_is_numeric { - my ($options, $key) = @_; - - die "Browse Node ID must be numeric." - if ( $options->{$key} =~ /\D/ ); -} - - -1; - -__END__ - -=head1 NAME - -Net::Amazon::Request::BrowseNode - request class for browse node search - -=head1 SYNOPSIS - - use Net::Amazon; - use Net::Amazon::Request::BrowseNode; - - my $ua = Net::Amazon->new( - token => 'YOUR_AMZN_TOKEN' - ); - - my $req = Net::Amazon::Request::BrowseNode->new( - browsenode => 30, - mode => 'books' - ); - - # Response is of type Net::Amazon::Response::BrowseNode - my $resp = $ua->request($req); - -=head1 DESCRIPTION - -C<Net::Amazon::Request::BrowseNode> is a class used to submit node search -requests to the Amazon web service. - -The node to search for is specified in the C<browsenode> parameter. The -browse node ID is a number that corresponds to a general subject area -of Amazon.com. - -To find browse node IDs, the best way is to visit the "browse" area -of the various product lines at Amazon.com. When you find a subject area -that you would like to generate XML for, look at the web page URL. The -browse ID should appear after the string "/tg/browse/-/". Here are some -examples of URLs that contain browse IDs: - -=over 8 - -http://www.amazon.com/exec/obidos/tg/browse/-/30 -(In this example, the browse ID = 30) - -http://www.amazon.com/exec/obidos/tg/browse/-/467970 -(In this example, the browse ID = 467970) - -http://www.amazon.com/exec/obidos/tg/browse/-/602314 -(In this example, the browse ID = 60231 - -=back - -Please be aware that some nodes cannot be used with a -BrowseNodeSearch. (The vast majority of them can, but you -may run across a few that simply will not work). It is also -important to point out that from time to time, some browse -nodes are deprecated or are changed without notice. - -The catalog to search in is specified in the C<mode> parameter, -typical values are C<books>, C<music>, C<classical> or C<electronics>. - -An optional C<keywords> parameter may be added to filter the results by that keyword. - -Upon success, the responses' C<properties()> method will return a list of -C<Net::Amazon::Properties::*> objects. - -=head2 METHODS - -=over 4 - -=item new( browsenode => $nodeID, mode => $mode [, keywords => $keywords] ) - -Constructs a new C<Net::Amazon::Request::BrowseNode> object, used to query -the Amazon web service for items in a particular category (node) in the -mode (catalog) specified. - -=back - -Check L<Net::Amazon::Request> for common request parameters not listed here. - -=head1 AUTHOR - -Net::Amazon framework by Mike Schilli, E<lt>m@perlmeister.comE<gt> - -BrowseNode.pm by Jackie Hamilton, E<lt>kira@cgi101.comE<gt> - -=head1 LICENSE - -This library is free software; you can redistribute it and/or modify -it under the same terms as Perl itself. - -=cut |
