* Update installation list with required modules

* Remove unused/doubled provided external perl moduls

38 files changed, 0 insertions, 5005 deletions

diff --git a/lib/Net/Amazon.pm b/lib/Net/Amazon.pm
deleted file mode 100644
index 4630c11..0000000
--- a/lib/Net/Amazon.pm
+++ /dev/null
@@ -1,1255 +0,0 @@
-#####################################################################
-package Net::Amazon;
-######################################################################
-# Mike Schilli <m@perlmeister.com>, 2003
-######################################################################
-
-use 5.006;
-use strict;
-use warnings;
-
-our $VERSION          = '0.34';
-our @CANNED_RESPONSES = ();
-
-use LWP::UserAgent;
-use HTTP::Request::Common;
-use XML::Simple;
-use Data::Dumper;
-use URI;
-use Log::Log4perl qw(:easy get_logger);
-use Time::HiRes qw(usleep gettimeofday tv_interval);
-
-# Each key represents a search() type, and each value indicates which
-# Net::Amazon::Request:: class to use to handle it.
-use constant SEARCH_TYPE_CLASS_MAP => {
-    artist       => 'Artist',
-    asin         => 'ASIN',
-    blended      => 'Blended',
-    browsenode   => 'BrowseNode',
-    exchange     => 'Exchange',
-    keyword      => 'Keyword',
-    manufacturer => 'Manufacturer',
-    power        => 'Power',
-    seller       => 'Seller',
-    similar      => 'Similar',
-    textstream   => 'TextStream',
-    upc          => 'UPC',
-    wishlist     => 'Wishlist',
-};
-
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    if(! exists $options{token}) {
-        die "Mandatory paramter 'token' not defined";
-    }
-
-    if(! exists $options{affiliate_id}) {
-        $options{affiliate_id} = "webservices-20";
-    }
-
-    my $self = {
-        strict         => 1,
-        response_dump  => 0,
-        rate_limit     => 1.0,  # 1 req/sec
-        max_pages      => 5,
-        ua             => LWP::UserAgent->new(),
-        %options,
-               };
-
-    help_xml_simple_choose_a_parser();
-
-    bless $self, $class;
-}
-
-##################################################
-sub search {
-##################################################
-    my($self, %params) = @_;
-
-    foreach my $key ( keys %params ) {
-        next unless ( my $class = SEARCH_TYPE_CLASS_MAP->{$key} );
-        
-        return $self->_make_request($class, \%params);
-    }
-
-    # FIX?
-    # This seems like it really should be a die() instead...this is
-    # indicative of a programming problem. Generally speaking, it's
-    # best to issue warnings from a module--you can't be sure that the
-    # client has a stderr to begin with, or that he wants errors
-    # spewed to it.
-    warn "No Net::Amazon::Request type could be determined";
-
-    return undef;
-}
-
-##################################################
-sub intl_url {
-##################################################
-    my($self, $url) = @_;
-
-    # Every time Amazon is adding a new country to the web service,
-    # they're rolling a dice on what the new URL is going to be.
-    # This method will try to keep up with their crazy mappings.
-
-    if(! exists $self->{locale}) {
-        return $url;
-    }
-
-    if ($self->{locale} eq "jp") {
-       $url =~ s/\.com/.co.jp/;
-       return $url;
-    }
-
-    if($self->{locale} eq "uk" or
-       $self->{locale} eq "de") {
-        $url =~ s/xml/xml-eu/;
-        return $url;
-    }
-        
-    return $url;
-}
-
-##################################################
-sub request {
-##################################################
-    my($self, $request) = @_;
-
-    my $AMZN_WISHLIST_BUG_ENCOUNTERED = 0;
-
-    my $resp_class = $request->response_class();
-
-    eval "require $resp_class;" or 
-        die "Cannot find '$resp_class'";
-
-    my $res  = $resp_class->new();
-
-    my $url  = URI->new($self->intl_url($request->amzn_xml_url()));
-    my $page = $request->{page};
-    my $ref;
-
-    {
-        my %params = $request->params();
-        $params{page}   = $page;
-        $params{locale} = $self->{locale} if exists $self->{locale};
-
-        $url->query_form(
-            'dev-t' => $self->{token},
-            't'     => $self->{affiliate_id},
-            map { $_, $params{$_} } sort keys %params,
-        );
-
-        my $urlstr = $url->as_string;
-        my $xml = fetch_url($self, $urlstr, $res);
-
-        if(!defined $xml) {
-            return $res;
-        }
-
-        DEBUG(sub { "Received [ " . $xml . "]" });
-
-            # Let the response class parse the XML
-        $ref = $res->xml_parse($xml);
-
-        # DEBUG(sub { Data::Dumper::Dumper($ref) });
-
-        if(! defined $ref) {
-            ERROR("Invalid XML");
-            $res->messages( [ "Invalid XML" ]);
-            $res->status("");
-            return $res;
-        }
-
-        if(exists $ref->{TotalPages}) {
-            INFO("Page $page/$ref->{TotalPages}");
-        }
-
-        if(exists $ref->{TotalResults}) {
-            $res->total_results( $ref->{TotalResults} );
-        }
-
-        if(exists $ref->{ErrorMsg}) {
-
-            if($AMZN_WISHLIST_BUG_ENCOUNTERED &&
-               $ref->{ErrorMsg} =~ /no exact matches/) {
-                DEBUG("End of buggy wishlist detected");
-                last;
-            }
-                
-            if (ref($ref->{ErrorMsg}) eq "ARRAY") {
-              # multiple errors, set arrary ref
-              $res->messages( $ref->{ErrorMsg} );
-            } else {
-              # single error, create array
-              $res->messages( [ $ref->{ErrorMsg} ] );
-            }
-
-            ERROR("Fetch Error: " . $res->message );
-            $res->status("");
-            return $res;
-        }
-
-        my $new_items = $res->xmlref_add($ref);
-        DEBUG("Received valid XML ($new_items items)");
-
-        # Stop if we've fetched max_pages already
-        if($self->{max_pages} <= $page) {
-            DEBUG("Fetched max_pages ($self->{max_pages}) -- stopping");
-            last;
-        }
-
-        # Work around the Amazon bug not setting TotalPages properly
-        # for wishlists
-        if(ref($res) =~ /Wishlist/ and
-           !exists $ref->{TotalPages}  and
-           $new_items == 10
-          ) {
-            $AMZN_WISHLIST_BUG_ENCOUNTERED = 1;
-            DEBUG("Trying to fetch additional wishlist page (AMZN bug)");
-            $page++;
-            redo;
-        }
-
-        if(exists $ref->{TotalPages} and
-           $ref->{TotalPages} > $page) {
-            DEBUG("Page $page of $ref->{TotalPages} fetched - continuing");
-            $page++;
-            redo;
-        }
-
-        # We're gonna fall out of this loop here.
-    }
-
-    $res->status(1);
-    # We have a valid response, so if TotalResults isn't set, 
-    # we most likely have a single response
-    $res->total_results(1) unless defined $res->total_results();
-    return $res;
-}
-
-##################################################
-sub fetch_url {
-##################################################
-    my($self, $url, $res) = @_;
-
-    my $max_retries = 2;
-
-    INFO("Fetching $url");
-
-    if(@CANNED_RESPONSES) {
-        INFO("Serving canned response (testing)");
-        return shift @CANNED_RESPONSES;
-    }
-
-    if(exists $self->{cache}) {
-        my $resp = $self->{cache}->get($url);
-        if(defined $resp) {
-            INFO("Serving from cache");
-            return $resp;
-        }
-
-        INFO("Cache miss");
-    }
-
-    my $ua = $self->{ua};
-    $ua->env_proxy();
-
-    my $resp;
-
-    {
-        # wait up to a second before the next request so
-        # as to not violate Amazon's 1 query per second
-        # rule (or the configured rate_limit).
-        $self->pause() if $self->{strict};
-
-        $resp = $ua->request(GET $url);
-
-        $self->reset_timer() if $self->{strict};
-
-        if($resp->is_error) {
-            # retry on 503 Service Unavailable errors
-            if ($resp->code == 503) {
-                if ($max_retries-- >= 0) {
-                    INFO("Temporary Amazon error 503, retrying");
-                    redo;
-                } else {
-                    INFO("Out of retries, giving up");
-                    $res->status("");
-                    $res->messages( [ "Too many temporary Amazon errors" ] );
-                    return undef;
-                }
-            } else {
-                $res->status("");
-                $res->messages( [ $resp->message ] );
-                return undef;
-            }
-        }
-
-        if($self->{response_dump}) {
-            my $dumpfile = "response-$self->{response_dump}.txt";
-            open FILE, ">$dumpfile" or die "Cannot open $dumpfile";
-            print FILE $resp->content();
-            close FILE;
-            $self->{response_dump}++;
-        }
-
-        if($resp->content =~ /<ErrorMsg>/ &&
-           $resp->content =~ /Please retry/i) {
-            if($max_retries-- >= 0) {
-                INFO("Temporary Amazon error, retrying");
-                redo;
-            } else {
-                INFO("Out of retries, giving up");
-                $res->status("");
-                $res->messages( [ "Too many temporary Amazon errors" ] );
-                return undef;
-            }
-        }
-    }
-
-    if(exists $self->{cache}) {
-        $self->{cache}->set($url, $resp->content());
-    }
-
-    return $resp->content();
-}
-
-##################################################
-# Poor man's Class::Struct
-##################################################
-sub make_accessor {
-##################################################
-    my($package, $name) = @_;
-
-    no strict qw(refs);
-
-    my $code = <<EOT;
-        *{"$package\\::$name"} = sub {
-            my(\$self, \$value) = \@_;
-
-            if(defined \$value) {
-                \$self->{$name} = \$value;
-            }
-            if(exists \$self->{$name}) {
-                return (\$self->{$name});
-            } else {
-                return "";
-            }
-        }
-EOT
-    if(! defined *{"$package\::$name"}) {
-        eval $code or die "$@";
-    }
-}
-
-##################################################
-# Make accessors for arrays
-##################################################
-sub make_array_accessor {
-##################################################
-    my($package, $name) = @_;
-
-    no strict qw(refs);
-
-    my $code = <<EOT;
-        *{"$package\\::$name"} = sub {
-            my(\$self, \$nameref) = \@_;
-            if(defined \$nameref) {
-                if(ref \$nameref eq "ARRAY") {
-                    \$self->{$name} = \$nameref;
-                } else {
-                    \$self->{$name} = [\$nameref];
-                }
-            }
-               # Return a list
-            if(exists \$self->{$name} and
-               ref \$self->{$name} eq "ARRAY") {
-                return \@{\$self->{$name}};
-            }
-
-            return undef;
-        }
-EOT
-
-    if(! defined *{"$package\::$name"}) {
-        eval $code or die "$@";
-    }
-}
-
-##################################################
-sub artist {
-##################################################
-    my($self, $nameref) = @_;
-
-    # Only return the first artist
-    return ($self->artists($nameref))[0];
-}
-
-
-##################################################
-sub xmlref_add {
-##################################################
-    my($self, $xmlref) = @_;
-
-    my $nof_items_added = 0;
-
-    # Push a nested hash structure, retrieved via XMLSimple, onto the
-    # object's internal 'xmlref' entry, which holds a ref to an array, 
-    # whichs elements are refs to hashes holding an item's attributes
-    # (like OurPrice etc.)
-
-    #DEBUG("xmlref_add ", Data::Dumper::Dumper($xmlref));
-
-    unless(ref($self->{xmlref}) eq "HASH" &&
-           ref($self->{xmlref}->{Details}) eq "ARRAY") {
-        $self->{xmlref}->{Details} = [];
-    }
-
-    if(ref($xmlref->{Details}) eq "ARRAY") {
-        # Is it an array of items?
-        push @{$self->{xmlref}->{Details}}, @{$xmlref->{Details}};
-        $nof_items_added = scalar @{$xmlref->{Details}};
-    } else {
-        # It is a single item
-        push @{$self->{xmlref}->{Details}}, $xmlref->{Details};
-        $nof_items_added = 1;
-    }
-
-    #DEBUG("xmlref_add (after):", Data::Dumper::Dumper($self));
-    return $nof_items_added;
-}
-
-##################################################
-sub help_xml_simple_choose_a_parser {
-##################################################
-    
-    eval "require XML::Parser";
-    unless($@) {
-        $XML::Simple::PREFERRED_PARSER = "XML::Parser";
-        return;
-    }
-
-    eval "require XML::SAX::PurePerl";
-    unless($@) {
-        $XML::Simple::PREFERRED_PARSER = "XML::SAX::PurePerl";
-        return;
-    }
-}
-
-##################################################
-# This timer makes sure we don't query Amazon more
-# than once a second.
-##################################################
-sub reset_timer {
-##################################################
-
-    my $self = shift;
-    $self->{t0} = [gettimeofday];
-}
-
-##################################################
-# Pause for up to a second if necessary.
-##################################################
-sub pause {
-##################################################
-
-    my $self = shift;
-    return unless ($self->{t0});
-
-    my $t1 = [gettimeofday];
-    my $dur = (1.0/$self->{rate_limit} - 
-               tv_interval($self->{t0}, $t1)) * 1000000;
-    if($dur > 0) {
-            # Use a pseudo subclass for the logger, since the app
-            # might not want to log that as 'ERROR'. Log4perl's
-            # inheritance mechanism makes sure it does the right
-            # thing for the current class.
-        my $logger = get_logger(__PACKAGE__ . "::RateLimit");
-        $logger->error("Ratelimiting: Sleeping $dur microseconds"); 
-        usleep($dur);
-    }
-}
-
-##
-## 'PRIVATE' METHODS
-##
-
-# $self->_make_request( TYPE, PARAMS )
-#
-# Takes a TYPE that corresponds to a Net::Amazon::Request
-# class, require()s that class, instantiates it, and returns
-# the result of that instance's request() method.
-#
-sub _make_request {
-    my ($self, $type, $params) = @_;
-
-    my $class = "Net::Amazon::Request::$type";
-
-    eval "require $class";
-
-    my $req = $class->new(%{$params});
-    
-    return $self->request($req);
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Net::Amazon - Framework for accessing amazon.com via SOAP and XML/HTTP
-
-=head1 SYNOPSIS
-
-  use Net::Amazon;
-
-  my $ua = Net::Amazon->new(token => 'YOUR_AMZN_TOKEN');
-
-    # Get a request object
-  my $response = $ua->search(asin => '0201360683');
-
-  if($response->is_success()) {
-      print $response->as_string(), "\n";
-  } else {
-      print "Error: ", $response->message(), "\n";
-  }
-
-=head1 ABSTRACT
-
-  Net::Amazon provides an object-oriented interface to amazon.com's
-  SOAP and XML/HTTP interfaces. This way it's possible to create applications
-  using Amazon's vast amount of data via a functional interface, without
-  having to worry about the underlying communication mechanism.
-
-=head1 DESCRIPTION
-
-C<Net::Amazon> works very much like C<LWP>: First you define a useragent
-like
-
-  my $ua = Net::Amazon->new(
-      token     => 'YOUR_AMZN_TOKEN',
-      max_pages => 3,
-  );
-
-which you pass your personal amazon developer's token (can be obtained
-from L<http://amazon.com/soap>) and (optionally) the maximum number of 
-result pages the agent is going to request from Amazon in case all
-results don't fit on a single page (typically holding 20 items).  Note that
-each new page requires a minimum delay of 1 second to comply with Amazon's
-one-query-per-second policy.
-
-According to the different search methods on Amazon, there's a bunch
-of different request types in C<Net::Amazon>. The user agent's 
-convenience method C<search()> triggers different request objects, 
-depending on which parameters you pass to it:
-
-=over 4
-
-=item C<< $ua->search(asin => "0201360683") >>
-
-The C<asin> parameter has Net::Amazon search for an item with the 
-specified ASIN. If the specified value is an arrayref instead of a single
-scalar, like in
-
-    $ua->search(asin => ["0201360683", "0596005083"]) 
-
-then a search for multiple ASINs is performed, returning a list of 
-results.
-
-=item C<< $ua->search(artist => "Rolling Stones") >>
-
-The C<artist> parameter has the user agent search for items created by
-the specified artist. Can return many results.
-
-=item C<< $ua->search(browsenode=>"4025", mode=>"books" [, keywords=>"perl"]) >>
-
-Returns a list of items by category ID (node). For example node "4025"
-is the CGI books category.  You can add a keywords parameter to filter 
-the results by that keyword.
-
-=item C<< $ua->search(exchange => 'Y04Y3424291Y2398445') >>
-
-Returns an item offered by a third-party seller. The item is referenced
-by the so-called I<exchange ID>.
-
-=item C<< $ua->search(keyword => "perl xml", mode => "books") >>
-
-Search by keyword, mandatory parameters C<keyword> and C<mode>.
-Can return many results.
-
-=item C<< $ua->search(wishlist => "1XL5DWOUFMFVJ") >>
-
-Search for all items in a specified wishlist.
-Can return many results.
-
-=item C<< $ua->search(upc => "075596278324", mode => "music") >>
-
-Music search by UPC (product barcode), mandatory parameter C<upc>.
-C<mode> has to be set to C<music>. Returns at most one result.
-
-=item C<< $ua->search(similar => "0201360683") >>
-
-Search for all items similar to the one represented by the ASIN provided.
-Can return many results.
-
-=item C<< $ua->search(power => "subject: perl and author: schwartz", mode => "books") >>
-
-Initiate a power search for all books matching the power query.
-Can return many results. See L<Net::Amazon::Request::Power> for details.
-
-=item C<< $ua->search(manufacturer => "o'reilly", mode => "books") >>
-
-Initiate a search for all items made by a given manufacturrer.
-Can return many results. See L<Net::Amazon::Request::Manufacturer> 
-for details.
-
-=item C<< $ua->search(blended => "Perl") >>
-
-Initiate a search for items in all categories.
-
-=item C<< $ua->search(seller => "A2GXAGU54VOP7") >>
-
-Start a search on items sold by a specific third-party seller, referenced
-by its ID (not seller name).
-
-=item C<< $ua->search(textstream => "Blah blah Rolling Stones blah blah") >>
-
-Find items related to keywords within a text stream.
-
-=back
-
-The user agent's C<search> method returns a response object, which can be 
-checked for success or failure:
-
-  if($resp->is_success()) {
-      print $resp->as_string();
-  } else {
-      print "Error: ", $resp->message(), "\n";
-  }
-
-In case the request for an item search 
-succeeds, the response contains one or more
-Amazon 'properties', as it calls the products found.
-All matches can be retrieved from the Response 
-object using it's C<properties()> method.
-
-In case the request fails, the response contains one or more
-error messages. The response object's C<message()> method will
-return it (or them) as a single string, while C<messages()> (notice
-the plural) will
-return a reference to an array of message strings.
-
-Response objects always have the methods 
-C<is_success()>,
-C<is_error()>,
-C<message()>,
-C<total_results()>,
-C<as_string()> and
-C<properties()> available.
-
-C<total_results()> returns the total number of results the search
-yielded.
-C<properties()> returns one or more C<Net::Amazon::Property> objects of type
-C<Net::Amazon::Property> (or one of its subclasses like
-C<Net::Amazon::Property::Book>, C<Net::Amazon::Property::Music>
-or Net::Amazon::Property::DVD), each
-of which features accessors named after the attributes of the product found
-in Amazon's database:
-
-    for ($resp->properties) {
-       print $_->Asin(), " ",
-             $_->OurPrice(), "\n";
-    }
-
-In scalar context, C<properties()> just returns the I<first> 
-C<Net::Amazon::Property> object found.
-Commonly available accessors to C<Net::Amazon::Property> objects are
-C<OurPrice()>,
-C<ImageUrlLarge()>,
-C<ImageUrlMedium()>,
-C<ImageUrlSmall()>,
-C<ReleaseDate()>,
-C<Catalog()>,
-C<Asin()>,
-C<url()>,
-C<Manufacturer()>,
-C<UsedPrice()>,
-C<ListPrice()>,
-C<ProductName()>,
-C<Availability()>,
-C<SalesRank()>,
-C<CollectiblePrice()>,
-C<CollectibleCount()>,
-C<NumberOfOfferings()>,
-C<UsedCount()>,
-C<ThirdPartyNewPrice()>,
-C<ThirdPartyNewCount()>,
-C<similar_asins()>.
-For details, check L<Net::Amazon::Property>.
-
-Also, the specialized classes C<Net::Amazon::Property::Book> and
-C<Net::Amazon::Property::Music> feature convenience methods like
-C<authors()> (returning the list of authors of a book) or 
-C<album()> for CDs, returning the album title.
-
-Customer reviews:
-Every property features a C<review_set()> method which returns a
-C<Net::Amazon::Attribute::ReviewSet> object, which in turn offers
-a list of C<Net::Amazon::Attribute::Review> objects. Check the respective
-man pages for details on what's available.
-
-=head2 Requests behind the scenes
-
-C<Net::Amazon>'s C<search()> method is just a convenient way to 
-create different kinds of request objects behind the scenes and
-trigger them to send requests to Amazon.
-
-Depending on the parameters fed to the C<search> method, C<Net::Amazon> will
-determine the kind of search requested and create one of the following
-request objects:
-
-=over 4
-
-=item Net::Amazon::Request::ASIN
-
-Search by ASIN, mandatory parameter C<asin>. 
-Returns at most one result.
-
-=item Net::Amazon::Request::Artist
-
-Music search by Artist, mandatory parameter C<artist>.
-Can return many results.
-
-=item Net::Amazon::Request::BrowseNode
-
-Returns category (node) listing. Mandatory parameters C<browsenode>
-(must be numeric) and C<mode>. Can return many results.
-
-=item Net::Amazon::Request::Keyword
-
-Keyword search, mandatory parameters C<keyword> and C<mode>.
-Can return many results.
-
-=item Net::Amazon::Request::UPC
-
-Music search by UPC (product barcode), mandatory parameter C<upc>.
-C<mode> has to be set to C<music>. Returns at most one result.
-
-=item Net::Amazon::Request::Blended
-
-'Blended' search on a keyword, resulting in matches across the board.
-No 'mode' parameter is allowed. According to Amazon's developer's kit, 
-this will result in up to three matches per category and can yield
-a total of 45 matches.
-
-=item Net::Amazon::Request::Power
-
-Understands power search strings. See L<Net::Amazon::Request::Power>
-for details. Mandatory parameter C<power>.
-
-=item Net::Amazon::Request::Manufacturer
-
-Searches for all items made by a given manufacturer. Mandatory parameter
-C<manufacturer>.
-
-=item Net::Amazon::Request::Similar
-
-Finds items similar to a given one.
-
-=item Net::Amazon::Request::Wishlist
-
-Find item on someone's wish list.
-
-=item Net::Amazon::Request::Seller
-
-Searches for a third-party seller on Amazon by seller ID. This search
-is different than the previous ones, since it doesn't return Amazon
-items, but a single seller record. Don't use the C<properties()> method
-on the response, use C<result()> instead, which returns a 
-L<Net::Amazon::Result::Seller> object. Check the manpage for details.
-
-=item Net::Amazon::Request::Exchange
-
-Searches for items offered by third-party sellers. Items are referenced
-by their so-called I<Exchange ID>.
-Similar to L<Net::Amazon::Request::Seller>,
-this request doesn't return a list of Amazon properties, so please use
-C<result()> instead, which will return a I<single>
-L<Net::Amazon::Result::Seller::Listing> item.
-Check the manpage for details on what attributes are available there.
-
-=back
-
-Check the respective man pages for details on these request objects.
-Request objects are typically created like this (with a Keyword query
-as an example):
-
-    my $req = Net::Amazon::Request::Keyword->new(
-        keyword   => 'perl',
-	mode      => 'books',
-    );
-
-and are handed over to the user agent like that:
-
-    # Response is of type Net::Amazon::Response::ASIN
-  my $resp = $ua->request($req);
-
-The convenient C<search()> method just does these two steps in one.
-
-=head2 METHODS
-
-=over 4
-
-=item $ua = Net::Amazon->new(token => $token, ...)
-
-Create a new Net::Amazon useragent. C<$token> is the value of 
-the mandatory Amazon developer's token, which can be obtained from
-L<http://amazon.com/soap>. 
-
-Additional optional parameters:
-
-=over 4
-
-=item C<< max_pages => $max_pages >>
-
-Sets how many 
-result pages the module is supposed to fetch back from Amazon, which
-only sends back 10 results per page.  
-Since each page requires a new query to Amazon, at most one query 
-per second will be made in C<strict> mode to comply with Amazon's terms 
-of service. This will impact performance if you perform a search 
-returning many pages of results.
-
-=item C<< affiliate_id => $affiliate_id >>
-
-your Amazon affiliate ID, if you have one. It defaults to 
-C<webservices-20> which is currently (as of 06/2003) 
-required by Amazon.
-
-=item C<< strict => 1 >>
-
-Makes sure that C<Net::Amazon> complies with Amazon's terms of service
-by limiting the number of outgoing requests to 1 per second. Defaults
-to C<1>, enabling rate limiting as defined via C<rate_limit>.
-
-=item C<< rate_limit => $reqs_per_sec >>
-
-Sets the rate limit to C<$reqs_per_sec> requests per second if 
-rate limiting has been enabled with C<strict> (see above).
-Defaults to C<1>, limiting the number of outgoing requests to 
-1 per second.
-
-=item C<< $resp = $ua->request($request) >>
-
-Sends a request to the Amazon web service. C<$request> is of a 
-C<Net::Amazon::Request::*> type and C<$response> will be of the 
-corresponding C<Net::Amazon::Response::*> type.
-
-=back
-
-=head2 Accessing foreign Amazon Catalogs
-
-As of this writing (07/2003), Amazon also offers its web service for
-the UK, Germany, and Japan. Just pass in
-
-    locale => 'uk'
-    locale => 'de'
-    locale => 'jp'
-
-respectively to C<Net::Amazon>'s constructor C<new()> and instead of returning
-results sent by the US mothership, it will query the particular country's
-catalog and show prices in (gack!) local currencies.
-
-=head2 EXAMPLE
-
-Here's a full-fledged example doing a artist search:
-
-    use Net::Amazon;
-    use Net::Amazon::Request::Artist;
-    use Data::Dumper;
-
-    die "usage: $0 artist\n(use Zwan as an example)\n"
-        unless defined $ARGV[0];
-
-    my $ua = Net::Amazon->new(
-        token       => 'YOUR_AMZN_TOKEN',
-    );
-
-    my $req = Net::Amazon::Request::Artist->new(
-        artist  => $ARGV[0],
-    );
-
-       # Response is of type Net::Amazon::Artist::Response
-    my $resp = $ua->request($req);
-
-    if($resp->is_success()) {
-        print $resp->as_string, "\n";
-    } else {
-        print $resp->message(), "\n";
-    }
-
-And here's one displaying someone's wishlist:
-
-    use Net::Amazon;
-    use Net::Amazon::Request::Wishlist;
-
-    die "usage: $0 wishlist_id\n" .
-        "(use 1XL5DWOUFMFVJ as an example)\n" unless $ARGV[0];
-
-    my $ua = Net::Amazon->new(
-        token       => 'YOUR_AMZN_TOKEN',
-    );
-
-    my $req = Net::Amazon::Request::Wishlist->new(
-        id  => $ARGV[0]
-    );
-
-       # Response is of type Net::Amazon::ASIN::Response
-    my $resp = $ua->request($req);
-
-    if($resp->is_success()) {
-        print $resp->as_string, "\n";
-    } else {
-        print $resp->message(), "\n";
-    }
-
-=head1 CACHING
-
-Responses returned by Amazon's web service can be cached locally.
-C<Net::Amazon>'s C<new> method accepts a reference to a C<Cache>
-object. C<Cache> (or one of its companions like C<Cache::Memory>,
-C<Cache::File>, etc.) can be downloaded from CPAN, please check their
-documentation for details. In fact, any other type of cache
-implementation will do as well, see the requirements below.
-
-Here's an example utilizing a file cache which causes C<Net::Amazon> to
-cache responses for 30 minutes:
-
-    use Cache::File;
-
-    my $cache = Cache::File->new( 
-        cache_root        => '/tmp/mycache',
-        default_expires   => '30 min',
-    );
-
-    my $ua = Net::Amazon->new(
-        token       => 'YOUR_AMZN_TOKEN',
-        cache       => $cache,
-    );
-
-C<Net::Amazon> uses I<positive> caching only, errors won't be cached. 
-Erroneous requests will be sent to Amazon every time. Positive cache 
-entries are keyed by the full URL used internally by requests submitted 
-to Amazon.
-
-Caching isn't limited to the C<Cache> class. Any cache object which
-adheres to the following interface can be used:
-
-        # Set a cache value
-    $cache->set($key, $value);
-
-        # Return a cached value, 'undef' if it doesn't exist
-    $cache->get($key);
-
-=head1 PROXY SETTINGS
-
-C<Net::Amazon> uses C<LWP::UserAgent> under the hood to send
-web requests to Amazon's web site. If you're in an environment where
-all Web traffic goes through a proxy, there's two ways to configure that.
-
-First, C<Net::Amazon> picks up proxy settings from environment variables:
-
-    export http_proxy=http://proxy.my.place:8080
-
-in the surrounding shell or setting
-
-    $ENV{http_proxy} = "http://proxy.my.place:8080";
-
-in your Perl script
-will route all requests through the specified proxy.
-
-Secondly, you can
-pass a user agent instance to Net::Amazon's constructor:
-
-    use Net::Amazon;
-    use LWP::UserAgent;
-
-    my $ua = LWP::UserAgent->new();
-    my $na = Net::Amazon->new(ua => $ua, token => 'YOUR_AMZN_TOKEN');
-    # ...
-
-This way, you can configure C<$ua> up front before Net::Amazon will use it.
-
-=head1 DEBUGGING
-
-If something's going wrong and you want more verbosity, just bump up
-C<Net::Amazon>'s logging level. C<Net::Amazon> comes with C<Log::Log4perl>
-statements embedded, which are disabled by default. However, if you initialize 
-C<Log::Log4perl>, e.g. like
-
-    use Net::Amazon;
-    use Log::Log4perl qw(:easy);
-
-    Log::Log4perl->easy_init($DEBUG);
-    my Net::Amazon->new();
-    # ...
-
-you'll see what's going on behind the scenes, what URLs the module 
-is requesting from Amazon and so forth. Log::Log4perl allows all kinds
-of fancy stuff, like writing to a file or enabling verbosity in certain
-parts only -- check http://log4perl.sourceforge.net for details.
-
-=head1 LIVE TESTING
-
-Results returned by Amazon can be incomplete or simply wrong at times,
-due to their "best effort" design of the service. This is why the test
-suite that comes with this module has been changed to perform its test
-cases against canned data. If you want to perform the tests against
-the live Amazon servers instead, just set the environment variable
-
-    NET_AMAZON_LIVE_TESTS=1
-
-=head1 WHY ISN'T THERE SUPPORT FOR METHOD XYZ?
-
-Because nobody wrote it yet. If Net::Amazon doesn't yet support a method
-advertised on Amazon's web service, you could help us out. Net::Amazon
-has been designed to be expanded over time, usually it only takes a couple
-of lines to support a new method, the rest is done via inheritance within
-Net::Amazon.
-
-Here's the basic plot:
-
-=over 4
-
-=item *
-
-Get Net::Amazon from CVS. Use
-
-        # (Just hit enter when prompted for a password)
-    cvs -d:pserver:anonymous@cvs.net-amazon.sourceforge.net:/cvsroot/net-amazon login
-    cvs -z3 -d:pserver:anonymous@cvs.net-amazon.sourceforge.net:/cvsroot/net-amazon co Net-Amazon
-
-If this doesn't work, just use the latest distribution from 
-net-amazon.sourceforge.net.
-
-=item *
-
-Write a new Net::Amazon::Request::XYZ package, start with this template
-
-    ######################################
-    package Net::Amazon::Request::XYZ;
-    ######################################
-    use base qw(Net::Amazon::Request);
-
-    ######################################
-    sub new {
-    ######################################
-        my($class, %options) = @_;
-
-        if(!exists $options{XYZ_option}) {
-            die "Mandatory parameter 'XYZ_option' not defined";
-        }
-    
-        my $self = $class->SUPER::new(%options);
-    
-        bless $self, $class;   # reconsecrate
-    }
-
-and add documentation. Then, create a new Net::Amazon::Response::XYZ module:
-
-    ##############################
-    package Net::Amazon::Response;
-    ##############################
-    use base qw(Net::Amazon::Response);
-
-    use Net::Amazon::Property;
-
-    ##############################
-    sub new {
-    ##############################
-        my($class, %options) = @_;
-    
-        my $self = $class->SUPER::new(%options);
-    
-        bless $self, $class;   # reconsecrate
-    }
-
-and also add documentation to it. Then, add the line
-
-    use Net::Amazon::Request::XYZ;
-
-to Net/Amazon.pm.
-
-=back
-
-And that's it! Again, don't forget the I<add documentation> part. Modules
-without documentation are of no use to anybody but yourself. 
-
-Check out the different Net::Amazon::Request::*
-and Net::Amazon::Response modules in the distribution if you need to adapt
-your new module to fulfil any special needs, like a different Amazon URL
-or a different way to handle the as_string() method. Also, post
-and problems you might encounter to the mailing list, we're gonna help you
-out.
-
-If possible, provide a test case for your extension. When finished, send 
-a patch to the mailing list at 
-
-   net-amazon-devel@lists.sourceforge.net
-
-and if it works, I'll accept it and will work it into the main distribution.
-Your name will show up in the contributor's list below (unless you tell
-me otherwise).
-
-=head2 SAMPLE SCRIPTS
-
-There's a number of useful scripts in the distribution's eg/ directory.
-Take C<power> for example, written by Martin Streicher 
-E<lt>martin.streicher@apress.comE<gt>: I lets you perform 
-a I<power search> using Amazon's query language. To search for all books 
-written by Randal Schwartz about Perl, call this from the command line:
-
-    power 'author: schwartz subject: perl'
-
-Note that you need to quote the query string to pass it as one argument
-to C<power>. If a power search returns more results than you want to
-process at a time, just limit the number of pages, telling C<power>
-which page to start at (C<-s>) and which one to finish with (C<-f>).
-Here's a search for all books on the subject C<computer>, limited
-to the first 10 pages:
-
-    power -s 1 -f 10 'subject: computer'
-
-Check out the script C<power> in eg/ for more options.
-
-=head2 HOW TO SEND ME PATCHES
-
-If you want me to include your modification or enhancement 
-in the distribution of Net::Amazon, please do the following:
-
-=over 4
-
-=item *
-
-Work off the latest CVS version. Here's the steps to get it:
-
-    CVSROOT=:pserver:anonymous@cvs.net-amazon.sourceforge.net:/cvsroot/net-amazon
-    export CVSROOT
-    cvs login (just hit Enter)
-    cvs co Net-Amazon
-
-This will create a new C<Net-Amazon> directory with the latest 
-development version of C<Net::Amazon> on your local machine.
-
-=item *
-
-Apply your changes to this development tree.
-
-=item *
-
-Run a diff between the tree and your changes it in this way:
-
-    cd Net-Amazon
-    cvs diff -Nau >patch_to_mike.txt
-
-=item *
-
-Email me C<patch_to_mike.txt>. If your patch works (and you've included
-test cases and documentation), I'll apply it on the spot.
-
-=back
-
-=head1 INSTALLATION
-
-C<Net::Amazon> depends on Log::Log4perl, which can be pulled from CPAN by
-simply saying
-
-    perl -MCPAN -eshell 'install Log::Log4perl'
-
-Also, it needs LWP::UserAgent and XML::Simple 2.x, which can be obtained 
-in a similar way.
-
-Once all dependencies have been resolved, C<Net::Amazon> installs with
-the typical sequence
-
-    perl Makefile.PL
-    make
-    make test
-    make install
-
-Make sure you're connected to the Internet while running C<make test>
-because it will actually contact amazon.com and run a couple of live tests.
-
-The module's distribution tarball and documentation are available at
-
-    http://perlmeister.com/devel/#amzn 
-
-and on CPAN.
-
-=head1 SEE ALSO
-
-The following modules play well within the C<Net::Amazon> framework:
-
-=over 4
-
-=item C<Net::Amazon::RemoteCart>
-
-by David Emery E<lt>dave@skiddlydee.comE<gt> provides a complete API for
-creating Amazon shopping carts on a local site, managing them and finally 
-submitting them to Amazon for checkout. It is available on CPAN.
-
-=back
-
-=head1 CONTACT
-
-The C<Net::Amazon> project's home page is hosted on 
-
-    http://net-amazon.sourceforge.net
-
-where you can find documentation, news and the latest development and
-stable releases for download. If you have questions about how to
-use C<Net::Amazon>, want to report a bug or just participate in its
-development, please send a message to the mailing 
-list net-amazon-devel@lists.sourceforge.net
-
-=head1 AUTHOR
-
-Mike Schilli, E<lt>na@perlmeister.comE<gt> (Please contact me via the mailing list: net-amazon-devel@lists.sourceforge.net )
-
-Contributors (thanks y'all!):
-
-    Andy Grundman <andy@hybridized.org>
-    Barnaby Claydon <bclaydon@perseus.com>
-    Batara Kesuma <bkesuma@gaijinweb.com>
-    Bill Fitzpatrick
-    Brian <brianbrian@gmail.com>
-    Brian Hirt <bhirt@mobygames.com>
-    Dan Kreft <dan@kreft.net>
-    Dan Sully <daniel@electricrain.com>
-    Jackie Hamilton <kira@cgi101.com>
-    Konstantin Gredeskoul <kig@get.topica.com>
-    Lance Cleveland <lancec@proactivewm.com>
-    Martha Greenberg <marthag@mit.edu>
-    Martin Streicher <martin.streicher@apress.com>
-    Mike Evron <evronm@dtcinc.net>
-    Padraic Renaghan <padraic@renaghan.com>
-    rayg <rayg@varchars.com>
-    Robert Graff <rgraff@workingdemo.com>
-    Robert Rothenberg <wlkngowl@i-2000.com>
-    Steve Rushe <steve@deeden.co.uk>
-    Tatsuhiko Miyagawa <miyagawa@livedoor.jp>
-    Tony Bowden <tony@kasei.com>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2003, 2004 by Mike Schilli E<lt>na@perlmeister.comE<gt>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself. 
-
-=cut
diff --git a/lib/Net/Amazon/Attribute/Review.pm b/lib/Net/Amazon/Attribute/Review.pm
deleted file mode 100644
index 5a5d094..0000000
--- a/lib/Net/Amazon/Attribute/Review.pm
+++ /dev/null
@@ -1,104 +0,0 @@
-######################################################################
-package Net::Amazon::Attribute::Review;
-######################################################################
-use warnings;
-use strict;
-use Log::Log4perl qw(:easy);
-use base qw(Net::Amazon);
-
-__PACKAGE__->make_accessor($_) for qw(rating summary comment);
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    my $self = {
-        rating  => "",
-        summary => "",
-        comment => "",
-        %options,
-    };
-
-    bless $self, $class;
-}
-
-##################################################
-sub init_via_xmlref {
-##################################################
-    my($self, $xmlref) = @_;
-
-    for(qw(Rating Summary Comment)) {
-        my $method = lc($_);
-        if($xmlref->{$_}) {
-            $self->$method($xmlref->{$_});
-        } else {
-            #LOGWARN "No '$_'";
-            return undef;
-        }
-    }
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Net::Amazon::Attribute::Review - Customer Review Class
-
-=head1 SYNOPSIS
-
-    use Net::Amazon::Attribute::Review;
-    my $rev = Net::Amazon::Attribute::Review->new(
-                 'rating'  => $rating,
-                 'summary' => $summary,
-                 'comment' => $comment,
-    );
-
-=head1 DESCRIPTION
-
-C<Net::Amazon::Attribute::Review> holds customer reviews.
-
-=head2 METHODS
-
-=over 4
-
-=item rating()
-
-Accessor for the numeric value of the rating.
-
-=item summary()
-
-Accessor for the string value of the summary.
-
-=item comment()
-
-Accessor for the string value of the customer comment.
-
-=back
-
-=head1 SEE ALSO
-
-=head1 AUTHOR
-
-Mike Schilli, E<lt>m@perlmeister.comE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2003 by Mike Schilli E<lt>m@perlmeister.comE<gt>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself. 
-
-=cut
-
-__END__
-      <Reviews>
-         <AvgCustomerRating>4.33</AvgCustomerRating>
-         <TotalCustomerReviews>6</TotalCustomerReviews>
-         <CustomerReview>
-            <Rating>4</Rating>
-            <Summary>Good introduction to Perl, and great reference</Summary>
-            <Comment>From its corny title you might expect another one of those 
-
diff --git a/lib/Net/Amazon/Attribute/ReviewSet.pm b/lib/Net/Amazon/Attribute/ReviewSet.pm
deleted file mode 100644
index 29a34e6..0000000
--- a/lib/Net/Amazon/Attribute/ReviewSet.pm
+++ /dev/null
@@ -1,137 +0,0 @@
-######################################################################
-package Net::Amazon::Attribute::ReviewSet;
-######################################################################
-use warnings;
-use strict;
-use Log::Log4perl qw(:easy);
-use Net::Amazon::Attribute::Review;
-use base qw(Net::Amazon);
-
-__PACKAGE__->make_accessor($_) for qw(average_customer_rating total_reviews);
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    my $self = {
-        reviews => [],  # list of reviews
-    };
-
-    bless $self, $class;
-}
-
-###########################################
-sub add_review {
-###########################################
-    my($self, $review) = @_;
-
-    if(ref $review ne "Net::Amazon::Attribute::Review") {
-        warn "add_review called with type ", ref $review;
-        return undef;
-    }
-
-    push @{$self->{reviews}}, $review;
-}
-
-###########################################
-sub reviews {
-###########################################
-    my($self) = @_;
-
-    return @{$self->{reviews}};
-}
-
-##################################################
-sub init_via_xmlref {
-##################################################
-    my($self, $xmlref) = @_;
-
-    my @pairs = qw(AvgCustomerRating    average_customer_rating
-                   TotalCustomerReviews total_reviews);
-
-    while(my($field, $method) = splice @pairs, 0, 2) {
-        
-        if(defined $xmlref->{$field}) {
-            DEBUG "Setting $field via $method to $xmlref->{$field}";
-            $self->$method($xmlref->{$field});
-        } else {
-            LOGWARN "No '$field'";
-            return undef;
-        }
-    }
-
-    if(ref $xmlref->{CustomerReview} ne "ARRAY") {
-        $xmlref->{CustomerReview} = [$xmlref->{CustomerReview}];
-    }
-
-    for my $review_xmlref (@{$xmlref->{CustomerReview}}) {
-        my $review = Net::Amazon::Attribute::Review->new();
-        $review->init_via_xmlref($review_xmlref);
-        DEBUG "Adding review ", $review->summary();
-        $self->add_review($review);
-    }
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Net::Amazon::Attribute::ReviewSet - A set of customer reviews
-
-=head1 SYNOPSIS
-
-    use Net::Amazon::Attribute::ReviewSet;
-    my $rev = Net::Amazon::Attribute::Review->new(
-        average_customer_rating => $avg,
-        total_reviews  => $total,
-        );
-
-=head1 DESCRIPTION
-
-C<Net::Amazon::Attribute::ReviewSet> holds a list of customer
-reviews, each of type C<Net::Amazon::Attribute::Review>.
-
-=head2 METHODS
-
-=over 4
-
-=item C<< $self->reviews() >>
-
-Returns a list of C<Net::Amazon::Attribute::Review> objects.
-
-=item C<< $self->average_customer_rating() >>
-
-Accessor for the average customer rating, a numeric value.
-
-=item C<< $self->total_reviews() >>
-
-Accessor for the total number of reviews. Please note that this
-might not be equal to the number of reviews held in the list, since
-there might be less customer reviews than total reviews (reviews
-can also be non-customer-reviews, but they're not available by
-the web service as of Aug 2003).
-
-=item C<< $self->add_review($rev) >>
-
-Add a C<Net::Amazon::Attribute::Review> object to the list.
-(Used internally only).
-
-=back
-
-=head1 SEE ALSO
-
-=head1 AUTHOR
-
-Mike Schilli, E<lt>m@perlmeister.comE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2003 by Mike Schilli E<lt>m@perlmeister.comE<gt>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself. 
-
-=cut
diff --git a/lib/Net/Amazon/Property.pm b/lib/Net/Amazon/Property.pm
deleted file mode 100644
index 6c06957..0000000
--- a/lib/Net/Amazon/Property.pm
+++ /dev/null
@@ -1,320 +0,0 @@
-######################################################################
-package Net::Amazon::Property;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon);
-
-use Net::Amazon::Property::DVD;
-use Net::Amazon::Property::Book;
-use Net::Amazon::Property::Music;
-use Net::Amazon::Attribute::ReviewSet;
-use Data::Dumper;
-use Log::Log4perl qw(:easy);
-
-use warnings; 
-use strict;
-
-our @DEFAULT_ATTRIBUTES = qw(
-  OurPrice ImageUrlLarge ImageUrlMedium ImageUrlSmall
-  ReleaseDate Catalog Asin url Manufacturer UsedPrice
-  ListPrice ProductName Availability SalesRank
-  Media NumMedia ProductDescription
-  CollectiblePrice CollectibleCount NumberOfOfferings
-  UsedCount ThirdPartyNewPrice ThirdPartyNewCount
-  ThirdPartyProductInfo
-);
-
-__PACKAGE__->make_accessor($_) for @DEFAULT_ATTRIBUTES;
-__PACKAGE__->make_accessor($_) for qw(year review_set);
-__PACKAGE__->make_array_accessor($_) for qw(browse_nodes similar_asins);
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    if(!$options{xmlref}) {
-        die "Mandatory param xmlref missing";
-    }
-
-    my $self = { 
-        %options, 
-               };
-
-    bless $self, $class;
-
-        # Set default attributes
-    for my $attr (@DEFAULT_ATTRIBUTES) {
-        $self->$attr($options{xmlref}->{$attr});
-    }
-
-    # The release date is sometimes missing
-    if($options{xmlref}->{ReleaseDate}) {
-        my ($year) = ($options{xmlref}->{ReleaseDate} =~ /(\d{4})/);
-        $self->year($year);
-    } else {
-        $self->year("");
-    }
-
-    my $browse_nodes = $options{xmlref}->{BrowseList}->{BrowseNode};
-    if(ref($browse_nodes) eq "ARRAY") {
-      my @nodes = map {
-        $_->{BrowseName}
-      } @{ $browse_nodes };
-      $self->browse_nodes(\@nodes);
-    } elsif (ref($browse_nodes) eq "HASH") {
-      $self->browse_nodes([ $browse_nodes->{BrowseName} ]);
-    } else {
-      $self->browse_nodes([ ]);
-    }
-
-    my $similar = $options{xmlref}->{SimilarProducts};
-    if(ref($similar) eq "HASH") {
-      $self->similar_asins($similar->{Product});
-    } else {
-      $self->similar_asins([ ]);
-    }
-
-    return $self;
-}
-
-##################################################
-sub as_string {
-##################################################
-    my($self) = @_;
-
-    my $result = "\"$self->{xmlref}->{ProductName}\", ";
-
-    if($self->{xmlref}->{Manufacturer}) {
-        $result .= "$self->{xmlref}->{Manufacturer}, ";
-    }
-
-    $result .= $self->year() . ", " if $self->year();
-
-    $result .= $self->OurPrice() . ", ";
-    $result .= $self->Asin();
-    return $result;
-}
-
-##################################################
-sub factory {
-##################################################
-    my(%options) = @_;
-
-    my $xmlref = $options{xmlref};
-    die "Called factory without xmlref" unless $xmlref;
-
-    # DEBUG(sub {"factory xmlref=" . Data::Dumper::Dumper($xmlref)});
-
-    my $catalog = $xmlref->{Catalog};
-    my $obj;
-
-    if(0) {
-    } elsif($catalog eq "Book") {
-        DEBUG("Creating new Book Property");
-        $obj = Net::Amazon::Property::Book->new(xmlref => $xmlref);
-    } elsif($catalog eq "Music") {
-        DEBUG("Creating new Music Property");
-        $obj = Net::Amazon::Property::Music->new(xmlref => $xmlref);
-    } elsif($catalog eq "DVD") {
-        DEBUG("Creating new DVD Property");
-        $obj = Net::Amazon::Property::DVD->new(xmlref => $xmlref);
-    } else {
-        DEBUG("Creating new Default Property ($catalog)");
-        $obj = Net::Amazon::Property->new(xmlref => $xmlref);
-    }
-
-    return $obj;
-}
-
-##################################################
-sub init_via_xmlref {
-##################################################
-    my($self, $xmlref) = @_;
-
-    my $reviewset = Net::Amazon::Attribute::ReviewSet->new();
-
-    if(exists $xmlref->{Reviews}) {
-        $reviewset->init_via_xmlref($xmlref->{Reviews});
-    }
-
-    $self->review_set($reviewset); 
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Net::Amazon::Property - Baseclass for products on amazon.com
-
-=head1 SYNOPSIS
-
-  use Net::Amazon;
-
-  # ...
-
-  if($resp->is_success()) {
-      for my $prop ($resp->properties) {
-          print $_->ProductName(), " ",
-                $_->Manufacturer(), " ",
-                $_->OurPrice(), "\n";
-
-=head1 DESCRIPTION
-
-C<Net::Amazon::Property> is the baseclass for results returned
-from Amazon web service queries. The term 'properties' is used as 
-a generic description for an item on amazon.com.
-
-Typically, the C<properties()> method of a C<Net::Amazon::Response::*> object
-will return one or more objects of class C<Net::Amazon::Property> or
-one of its subclasses, e.g. C<Net::Amazon::Property::Book> or
-C<Net::Amazon::Property::CD>.
-
-While C<Net::Amazon::Property> objects expose accessors for all 
-fields returned in the XML response (like C<OurPrice()>, C<ListPrice()>,
-C<Manufacturer()>, C<Asin()>, C<Catalog()>, C<ProductName()>, subclasses
-might define their own accessors to more class-specific fields
-(like the iC<Net::Amazon::Property::Book>'s C<authors()> method returning
-a list of authors, while C<Net::Amazon::Property>'s C<Authors()> method
-will return a reference to a sub-hash containing a C<Author> field, just like
-the response's XML contained it).
-
-=head2 METHODS
-
-Methods vary, depending on the item returned from a query. Here's the most
-common ones. They're all accessors, meaning they can be used like C<Method()>
-to retrieve the value or like C<Method($value)> to set the value of the
-field.
-
-=over 4
-
-=item Asin()
-
-The item's ASIN number.
-
-=item ProductName()
-
-Book title, CD album name or item name
-
-=item Availability()
-
-Text string describing if the item is available. Examples:
-C<"Usually ships within 24 hours"> or
-C<"Out of Print--Limited Availability">.
-
-=item Catalog()
-
-Shows the catalog the item was found in: C<Book>, C<Music>, C<Classical>,
-C<Electronics> etc.
-
-=item Authors()
-
-Returns a sub-hash with a C<Author> key, which points to either a single
-$scalar or to a reference of an array containing author names as scalars.
-
-=item ReleaseDate()
-
-Item's release date, format is "NN Monthname, Year".
-
-=item Manufacturer()
-
-Music label, publishing company or manufacturer
-
-=item ImageUrlSmall()
-
-URL to a small (thumbnail) image of the item
-
-=item ImageUrlMedium()
-
-URL to a medium-size image of the item
-
-=item ImageUrlLarge()
-
-URL to a large image of the item
-
-=item ListPrice()
-
-List price of the item
-
-=item OurPrice()
-
-Amazon price of the item
-
-=item UsedPrice()
-
-Used price of the item
-
-=item SalesRank()
-
-Sales rank of the item (contains digits and commas, like 1,000,001)
-
-=item Media()
-
-Type of media (Paperback, etc.).
-
-=item NumMedia()
-
-Number of media the item carries (1,2 CDs etc.).
-
-=item ProductDescription()
-
-Lengthy textual description of the product.
-
-=item CollectiblePrice() 
-
-Lowest price in "Collectible" category.
-
-=item CollectibleCount()
-
-Number of offerings in "Collectible" category.
-
-=item NumberOfOfferings()
-
-Total number of offerings in all categories.
-
-=item UsedCount()
-
-Number of offerings in "Used" category.
-
-=item ThirdPartyNewPrice()
-
-Lowest price in "Third Party New" category.
-
-=item ThirdPartyNewCount()
-
-Number of offerings in "Third Party New" category.
-
-=item year()
-
-The release year extracted from ReleaseDate().
-
-=item browse_nodes()
-
-Returns a list of browse nodes (text string categories) for this item.
-
-=item similar_asins()
-
-Returns a list of ASINs of similar items for this item.
-
-=back
-
-Please check the subclasses of C<Net::Amazon::Property> for specialized 
-methods.
-
-=head1 SEE ALSO
-
-=head1 AUTHOR
-
-Mike Schilli, E<lt>m@perlmeister.comE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2003 by Mike Schilli E<lt>m@perlmeister.comE<gt>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself. 
-
-=cut
diff --git a/lib/Net/Amazon/Property/Book.pm b/lib/Net/Amazon/Property/Book.pm
deleted file mode 100644
index 8a01756..0000000
--- a/lib/Net/Amazon/Property/Book.pm
+++ /dev/null
@@ -1,152 +0,0 @@
-######################################################################
-package Net::Amazon::Property::Book;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon::Property);
-
-__PACKAGE__->make_accessor($_) for qw(title publisher binding isbn);
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    my $self = $class->SUPER::new(%options);
-    bless $self, $class; # Bless into this class
-
-    if(exists $options{xmlref}) {
-        $self->init_via_xmlref($options{xmlref});
-    }
-
-    return $self;
-}
-
-##################################################
-sub init_via_xmlref {
-##################################################
-    my($self, $xmlref) = @_;
-
-    $self->SUPER::init_via_xmlref($xmlref);
-
-    $self->authors($xmlref->{Authors}->{Author});
-    $self->title($xmlref->{ProductName});
-    $self->publisher($xmlref->{Manufacturer});
-    $self->binding($xmlref->{Media});
-    $self->isbn($xmlref->{Isbn});
-}
-
-##################################################
-sub author {
-##################################################
-    my($self, $nameref) = @_;
-
-    # Only return the first author
-    return ($self->authors($nameref))[0];
-}
-
-##################################################
-sub authors {
-##################################################
-    my($self, $nameref) = @_;
-
-    if(defined $nameref) {
-        if(ref $nameref eq "ARRAY") {
-            $self->{authors} = $nameref;
-        } else {
-            $self->{authors} = [$nameref];
-        }
-    }
-
-       # Return a list
-    return $self->{authors} ? @{$self->{authors}} : ();
-}
-
-##################################################
-sub as_string {
-##################################################
-    my($self) = @_;
-
-    return join('/', $self->authors) . ", " .
-      '"' . $self->title . '"' . ", " .
-      $self->year . ", " .
-      $self->OurPrice . ", " .
-      $self->Asin;
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Net::Amazon::Property::Book - Class for books on amazon.com
-
-=head1 SYNOPSIS
-
-  use Net::Amazon;
-
-  # ...
-
-  if($resp->is_success()) {
-      for my $prop ($resp->properties) {
-          print join("/", $prop->authors(), " ",
-                $prop->title(), " ",
-                $prop->publisher(), " ",
-                $prop->year(), "\n";
-  }
-
-=head1 DESCRIPTION
-
-C<Net::Amazon::Property::Book> is derived from 
-C<Net::Amazon::Property> and on top of the all-purpose
-methods the base class provides, it offers specialized accessors for
-book parameters.
-
-=head2 METHODS
-
-=over 4
-
-=item authors()
-
-Returns a list of the book's authors. There's also a C<author()> method
-which just returns the I<first> author.
-
-=item publisher()
-
-Returns the book's publishing company as a string.
-
-=item title()
-
-Returns the book's title as a string.
-
-=item isbn()
-
-Returns the book's ISBN number.
-
-=item new(xmlref => $xmlref)
-
-Initializes an object by passing a hash of hashes structure containing
-the XML data returned from the service. Usually, this is just used by
-C<Net::Amazon> internally to initialize objects for on backcoming
-data.
-
-=back
-
-Check out L<Net::Amazon::Property> for all-purpose accessors, like
-C<year>, C<OurPrice>, C<ListPrice>, etc.
-
-=head1 SEE ALSO
-
-=head1 AUTHOR
-
-Mike Schilli, E<lt>m@perlmeister.comE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2003 by Mike Schilli E<lt>m@perlmeister.comE<gt>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself. 
-
-=cut
diff --git a/lib/Net/Amazon/Property/DVD.pm b/lib/Net/Amazon/Property/DVD.pm
deleted file mode 100644
index dc7fd5a..0000000
--- a/lib/Net/Amazon/Property/DVD.pm
+++ /dev/null
@@ -1,156 +0,0 @@
-######################################################################
-package Net::Amazon::Property::DVD;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon::Property);
-
-__PACKAGE__->make_accessor($_) for qw(title studio theatrical_release_date
-  media nummedia upc mpaa_rating);
-__PACKAGE__->make_array_accessor($_) for qw(directors starring features);
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    my $self = $class->SUPER::new(%options);
-    bless $self, $class; # Bless into this class
-
-    if(exists $options{xmlref}) {
-        $self->init_via_xmlref($options{xmlref});
-    }
-
-    return $self;
-}
-
-##################################################
-sub director {
-##################################################
-    my($self, $nameref) = @_;
-
-    # Only return the first director
-    return ($self->directors($nameref))[0];
-}
-
-##################################################
-sub init_via_xmlref {
-##################################################
-    my($self, $xmlref) = @_;
-
-    $self->SUPER::init_via_xmlref($xmlref);
-
-    $self->title($xmlref->{ProductName});
-    $self->studio($xmlref->{Manufacturer});
-    $self->directors($xmlref->{Directors}->{Director});
-    $self->starring($xmlref->{Starring}->{Actor});
-    $self->media($xmlref->{Media});
-    $self->nummedia($xmlref->{NumMedia});
-    $self->upc($xmlref->{Upc});
-    $self->theatrical_release_date($xmlref->{TheatricalReleaseDate});
-    $self->mpaa_rating($xmlref->{MpaaRating});
-    $self->features($xmlref->{Features}->{Feature});
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Net::Amazon::Property::DVD - Class for DVDs on amazon.com
-
-=head1 SYNOPSIS
-
-  use Net::Amazon;
-
-  # ...
-
-  if($resp->is_success()) {
-      for my $prop ($resp->properties) {
-          print $_->title(), " ",
-                $_->studio(), " ",
-                $_->year(), "\n";
-  }
-
-=head1 DESCRIPTION
-
-C<Net::Amazon::Property::DVD> is derived from 
-C<Net::Amazon::Property> and on top of the all-purpose
-methods the base class provides, it offers specialized accessors for
-DVD parameters.
-
-=head2 METHODS
-
-=over 4
-
-=item title()
-
-Returns the title of the DVD.
-
-=item studio()
-
-Returns the studio.
-
-=item directors()
-
-Returns a list of directors. Note that there's also a director() method
-only returning the first director.
-
-=item starring()
-
-Returns a list of actors starring in the movie.
-
-=item upc()
-
-Returns the DVD's UPC as a string.
-
-=item media()
-
-Returns the DVD's media type as a string.
-
-=item nummedia()
-
-Returns the DVD's number of media (number of discs) as a string.
-Amazon doesn't always send this back, so if you get undef assume it
-is 1.
-
-=item theatrical_release_date()
-
-Returns the DVD's theatrical release date.
-
-=item mpaa_rating()
-
-Returns the DVD's MPAA rating.
-
-=item features()
-
-Returns the DVD's features as a list of strings. Examples: 
-"Color", "Closed-captioned", "Widescreen".
-
-=item new(xmlref => $xmlref)
-
-Initializes an object by passing a hash of hashes structure containing
-the XML data returned from the service. Usually, this is just used by
-C<Net::Amazon> internally to initialize objects for on backcoming
-data.
-
-=back
-
-Check out L<Net::Amazon::Property> for all-purpose accessors, like
-C<year>, C<OurPrice>, C<ListPrice>, etc.
-
-=head1 SEE ALSO
-
-=head1 AUTHOR
-
-Mike Schilli, E<lt>m@perlmeister.comE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2003 by Mike Schilli E<lt>m@perlmeister.comE<gt>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself. 
-
-=cut
diff --git a/lib/Net/Amazon/Property/Music.pm b/lib/Net/Amazon/Property/Music.pm
deleted file mode 100644
index 59807be..0000000
--- a/lib/Net/Amazon/Property/Music.pm
+++ /dev/null
@@ -1,161 +0,0 @@
-######################################################################
-package Net::Amazon::Property::Music;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon::Property);
-
-__PACKAGE__->make_accessor($_) for qw(album label media nummedia upc);
-__PACKAGE__->make_array_accessor($_) for qw(artists tracks);
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    my $self = $class->SUPER::new(%options);
-    bless $self, $class; # Bless into this class
-
-    if(exists $options{xmlref}) {
-        $self->init_via_xmlref($options{xmlref});
-    }
-
-    return $self;
-}
-
-##################################################
-sub artist {
-##################################################
-    my($self, $nameref) = @_;
-
-    # Only return the first artist
-    return ($self->artists($nameref))[0];
-}
-
-##################################################
-sub init_via_xmlref {
-##################################################
-    my($self, $xmlref) = @_;
-
-    $self->SUPER::init_via_xmlref($xmlref);
-
-    $self->artists($xmlref->{Artists}->{Artist});
-    $self->tracks($xmlref->{Tracks}->{Track});
-    $self->album($xmlref->{ProductName});
-    $self->label($xmlref->{Manufacturer});
-    $self->upc($xmlref->{Upc});
-    $self->media($xmlref->{Media});
-    $self->nummedia($xmlref->{NumMedia});
-}
-
-##################################################
-sub as_string {
-##################################################
-    my($self) = @_;
-
-    return join('/', $self->artists) . ", " .
-           '"' . $self->album . '"' . ", " .
-           $self->year . ", " .
-           $self->OurPrice . ", " .
-           $self->Asin;
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Net::Amazon::Property::Music - Class for pop CDs on amazon.com
-
-=head1 SYNOPSIS
-
-  use Net::Amazon;
-
-  # ...
-
-  if($resp->is_success()) {
-      for my $prop ($resp->properties) {
-          print join("/", $_->artists(), " ",
-                $_->album(), " ",
-                $_->label(), " ",
-                $_->year(), " ";
-                $_->upc(), " ";
-                $_->media(), " ";
-                $_->nummedia(), "\n";
-  }
-
-=head1 DESCRIPTION
-
-C<Net::Amazon::Property::Music> is derived from 
-C<Net::Amazon::Property> and on top of the all-purpose
-methods the base class provides, it offers specialized accessors for
-popular music CD parameters.
-
-=head2 METHODS
-
-=over 4
-
-=item artists()
-
-Returns a list of the CD's artists. There's also a C<artist()> method
-which just returns the first artist.
-
-=item tracks()
-
-Returns a list of the CD's track titles.
-
-=item label()
-
-Returns the music label as a string.
-
-=item album()
-
-Returns the CD's title as a string.
-
-=item upc()
-
-Returns the CD's UPC as a string.
-
-=item media()
-
-Returns the CD's media type as a string.
-
-=item nummedia()
-
-Returns the CD's number of media (number of discs) as a string.
-Amazon doesn't always send this back, so if you get undef assume it
-is 1.
-
-=item new(xmlref => $xmlref)
-
-Initializes an object by passing a hash of hashes structure containing
-the XML data returned from the service. Usually, this is just used by
-C<Net::Amazon> internally to initialize objects for on backcoming
-data.
-
-=back
-
-Check out L<Net::Amazon::Property> for all-purpose accessors, like
-C<year>, C<OurPrice>, C<ListPrice>, etc.
-
-=head1 SEE ALSO
-
-=head1 AUTHOR
-
-Mike Schilli, E<lt>m@perlmeister.comE<gt>
-
-=head1 THANKS
-
-Thanks to Padraic Renaghan E<lt>padraic@renaghan.com<gt> for adding
-the upc/media/nummedia fields.
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2003 by Mike Schilli E<lt>m@perlmeister.comE<gt>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself. 
-
-=cut
-
diff --git a/lib/Net/Amazon/Request.pm b/lib/Net/Amazon/Request.pm
deleted file mode 100644
index 962d7bf..0000000
--- a/lib/Net/Amazon/Request.pm
+++ /dev/null
@@ -1,221 +0,0 @@
-######################################################################
-package Net::Amazon::Request;
-######################################################################
-
-use warnings;
-use strict;
-
-use constant DEFAULT_MODE          => 'books';
-use constant DEFAULT_TYPE          => 'heavy';
-use constant DEFAULT_PAGE_COUNT    => 1;
-use constant DEFAULT_FORMAT        => 'xml';
-use constant DEFAULT_SORT_CRITERIA => '+salesrank';
-
-use constant VALID_TYPES => { map { $_ => 1 } qw(heavy lite) };
-
-our $AMZN_XML_URL  = "http://xml.amazon.com/onca/xml3";
-
-##################################################
-sub amzn_xml_url {
-##################################################
-    return $AMZN_XML_URL;
-}
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    my $self = {
-        mode       => DEFAULT_MODE,
-        type       => DEFAULT_TYPE,
-        page       => DEFAULT_PAGE_COUNT,
-        f          => DEFAULT_FORMAT,
-        sort       => DEFAULT_SORT_CRITERIA,
-        %options,
-    };
-
-    die "Unknown type in ", __PACKAGE__, " constructor: ",
-        $self->{type} unless exists VALID_TYPES->{$self->{type}};
-
-    bless $self, $class;
-}
-
-##################################################
-sub params {
-##################################################
-    my($self) = @_;
-
-    return(%$self);
-}
-
-##################################################
-# Figure out the Response class to a given Request
-# class. To be used by sub classes.
-##################################################
-sub response_class {
-##################################################
-    my($self) = @_;
-
-    my $response_class = ref($self);
-    $response_class =~ s/Request/Response/;
-    return $response_class;
-}
-
-##
-## 'PRIVATE' METHODS
-##
-
-# CLASS->_convert_option( OPTIONS, ORIGINAL, TARGET [, CALLBACK] )
-#
-# Takes a reference to a hash of OPTIONS and renames the
-# ORIGINAL key name to the TARGET key name. If the optional
-# CALLBACK subroutine reference is defined, that subroutine
-# is invoked with two arguments:
-#
-#     CALLBACK->( OPTIONS, TARGET )
-#
-# The result of the CALLBACK's execution is then returned to
-# the caller. No assumptions are made about what the CALLBACK
-# should return (or even *if* is should return)--that's the
-# caller's responsibility.
-#
-# Returns 1 in the absensence of a CALLBACK.
-#
-sub _convert_option {
-    my ($class, $options, $original, $target, $callback) = @_;
-
-    if ( exists $options->{$original} ) {
-        $options->{$target} = $options->{$original};
-        delete $options->{$original};
-    }
-
-    return 1 unless ( $callback );
-
-    # The key name is explicitly passed-in so that the caller doesn't
-    # have think "Hrmm..  now which key am I working on, the original
-    # or the target key?" Confusion is bad.
-    return $callback->($options, $target);
-}
-
-# CLASS->_assert_options_defined( OPTIONS, KEYS )
-#
-# Takes a reference to a hash of OPTIONS and a list of
-# one or more KEYS. Tests to see if each key in KEYS
-# has a defined value. Calls die() upon the first
-# missing key. Otherwise, returns undef.
-#
-sub _assert_options_defined {
-    my ($class, $options, @keys) = @_;
-    
-    foreach my $key ( @keys ) {
-        die "Mandatory parameter '$key' not defined"
-            unless ( defined $options->{$key} );
-    }
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Net::Amazon::Request - Baseclass for requests to Amazon's web service
-
-=head1 SYNOPSIS
-
-    my $req = Net::Amazon::Request::XXX->new(
-                     [ type  => 'heavy', ]
-                     [ page  => $start_page, ]
-                     [ mode  => $mode, ]
-                     [ offer => 'All', ]
-                     [ sort => $sort_type, ]
-    );
-
-=head1 DESCRIPTION
-
-Don't use this class directly, use derived classes 
-(like C<Net::Amazon::Request::ASIN>, C<Net::Amazon::Request::Wishlist>
-etc.) instead to specify the type of request and its parameters.
-
-However, there's a bunch of parameters to the constructor
-that all request types have in common, here they are:
-
-=over 4
-
-=item type
-
-Defaults to C<heavy>, but can be set to C<lite> if no reviews etc.
-on a product are wanted. Some fields (e.g. C<isbn>) are not going to be 
-available in C<lite> mode, though.
-
-=item mode
-
-Defaults to C<books>, but can be set to other catalog values.
-
-=item page
-
-Defaults to C<1>, but can be set to a different number to 
-start with a different result page. Used in conjunction with the
-C<max_pages> parameter of the C<Net::Amazon> object. C<page> is the
-offset, C<max_pages> is the maximum number of pages pulled in starting
-at C<page>.
-
-=item sort
-
-Defaults to C<+salesrank>, but search results can be sorted in various
-ways, depending on the type of product returned by the search.  Search
-results may be sorted by the following criteria:
-
-=over 8
-
-=item *
-Featured Items                                                           
-
-=item *
-Bestselling                                                              
-
-=item *
-Alphabetical (A-Z and Z-A)                                               
-
-=item *
-Price (High to Low and Low to High)                                      
-
-=item *
-Publication or Release Date                                              
-
-=item *
-Manufacturer                                                             
-
-=item *
-Average Customer Review                                                  
-
-=item *
-Artist Name                                   
-
-=back
-
-Consult L<Net::Amazon::Request::Sort> for details.
-
-=item offer
-
-To receive values for the fields
-C<CollectibleCount>, C<NumberOfOfferings>, C<UsedCount>, 
-specify C<offer =E<gt> "All">.
-
-=back
-
-=head1 SEE ALSO
-
-=head1 AUTHOR
-
-Mike Schilli, E<lt>m@perlmeister.comE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2003 by Mike Schilli E<lt>m@perlmeister.comE<gt>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself. 
-
-=cut
diff --git a/lib/Net/Amazon/Request/ASIN.pm b/lib/Net/Amazon/Request/ASIN.pm
deleted file mode 100644
index 4d8f752..0000000
--- a/lib/Net/Amazon/Request/ASIN.pm
+++ /dev/null
@@ -1,139 +0,0 @@
-######################################################################
-package Net::Amazon::Request::ASIN;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon::Request);
-
-# These values are defined in the AWS SDK
-# (http://amazon.com/webservices) under
-# "Product and Catalog Data" / "ASIN and ISBN Searches"
-use constant MAX_ASINS_PER_TYPE => {
-    heavy => 10,
-    lite  => 30,
-};
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    $class->_assert_options_defined(\%options, 'asin');
-
-    $class->_convert_option(\%options,
-                            'asin',
-                            'AsinSearch',
-                            \&_process_asin_option);
-
-    my $self = $class->SUPER::new(%options);
-
-    bless $self, $class;   # reconsecrate
-}
-
-##
-## PRIVATE FUNCTIONS
-##
-
-# _process_asin_option( OPTIONS, KEY )
-#
-# Takes a reference to a hash of OPTIONS and checks the value keyed by
-# KEY to make sure it looks legitimate.  If the value associated with
-# KEY is an array, we check to make sure that we're not asking for
-# too many asins at once.
-#
-# Returns true if all goes well. If any problems are encountered,
-# die() will be called.
-#
-sub _process_asin_option {
-    my ($options, $key) = @_;
-
-    # If the asins are supplied in the form of an array, we have to
-    # make sure that the caller isn't trying to ask for too many at a
-    # time. If we don't make this test, those excessive asins will be
-    # silently ignored by the AWS servers...resulting in potentially
-    # confusing results for the user.
-    if ( ref $options->{$key} eq 'ARRAY' ) {
-        my $type      = $options->{'type'} || __PACKAGE__->SUPER::DEFAULT_TYPE;
-        my $max_asins = MAX_ASINS_PER_TYPE->{$type};
-
-        # Dying is the right thing to do here because this is
-        # indicative of a programming error.
-        die "Only $max_asins may be requested at a time using type '$type'"
-            if ( @{$options->{$key}} > $max_asins );
-
-        $options->{$key} = join ',', @{$options->{$key}};
-    } elsif ( ref $options->{$key} ) {
-        die "The 'asin' parameter must either be a scalar or an array";
-    }
-
-    return 1;
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Net::Amazon::Request::ASIN - Class for submitting ASIN requests
-
-=head1 SYNOPSIS
-
-  use Net::Amazon;
-  use Net::Amazon::Request::ASIN;
-
-  my $ua = Net::Amazon->new(
-      token       => 'YOUR_AMZN_TOKEN'
-  );
-
-  my $req = Net::Amazon::Request::ASIN->new( 
-      asin  => '0201360683'
-  );
-
-    # Response is of type Net::Amazon::Response::ASIN
-  my $resp = $ua->request($req);
-
-=head1 DESCRIPTION
-
-C<Net::Amazon::Request::ASIN> is a class used to submit ASIN requests
-to the Amazon web service.
-
-The ASIN of the item to look is specified in the C<asin> parameter.
-
-Upon success, the responses' C<properties()> method will return one
-single C<Net::Amazon::Property::*> object.
-
-=head2 METHODS
-
-=over 4
-
-=item new( asin => $asin )
-
-Constructs a new C<Net::Amazon::Request::ASIN> object, used to query
-the Amazon web service for an item with the specified ASIN number.
-
-C<$asin> can also be a reference to an array of ASINs, like in
-
-    $ua->search(asin => ["0201360683", "0596005083"]) 
-
-in which case a search for multiple ASINs is performed, returning a list of 
-results.
-
-=back
-
-Check L<Net::Amazon::Request> for common request parameters not listed here.
-
-=head1 SEE ALSO
-
-=head1 AUTHOR
-
-Mike Schilli, E<lt>m@perlmeister.comE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2003 by Mike Schilli E<lt>m@perlmeister.comE<gt>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself. 
-
-=cut
diff --git a/lib/Net/Amazon/Request/Artist.pm b/lib/Net/Amazon/Request/Artist.pm
deleted file mode 100644
index 4c111f8..0000000
--- a/lib/Net/Amazon/Request/Artist.pm
+++ /dev/null
@@ -1,86 +0,0 @@
-######################################################################
-package Net::Amazon::Request::Artist;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon::Request);
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    if(exists $options{artist}) {
-        $options{ArtistSearch} = $options{artist};
-        delete $options{artist};
-        $options{mode} = "music";
-    } else {
-        die "Mandatory parameter 'artist' not defined";
-    }
-
-    my $self = $class->SUPER::new(%options);
-
-    bless $self, $class;   # reconsecrate
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Net::Amazon::Request::Artist - Class for submitting Artist requests
-
-=head1 SYNOPSIS
-
-  use Net::Amazon;
-  use Net::Amazon::Request::Artist;
-
-  my $ua = Net::Amazon->new(
-      token       => 'YOUR_AMZN_TOKEN'
-  );
-
-  my $req = Net::Amazon::Request::Artist->new( 
-      artist  => 'Zwan'
-  );
-
-    # Response is of type Net::Amazon::Response::Artist
-  my $resp = $ua->request($req);
-
-=head1 DESCRIPTION
-
-C<Net::Amazon::Request::Artist> is a class used to submit Artist search
-requests to the Amazon web service.
-
-The artist to search for is specified in the C<artist> parameter.
-
-Upon success, the responses' C<properties()> method will return a list of
-C<Net::Amazon::Property::Music> objects.
-
-Check L<Net::Amazon::Request> for common request parameters not listed here.
-
-=head2 METHODS
-
-=over 4
-
-=item new( artist => $artist )
-
-Constructs a new C<Net::Amazon::Request::Artist> object, used to query
-the Amazon web service for items of a given artist.
-
-=back
-
-=head1 SEE ALSO
-
-=head1 AUTHOR
-
-Mike Schilli, E<lt>m@perlmeister.comE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2003 by Mike Schilli E<lt>m@perlmeister.comE<gt>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself. 
-
-=cut
diff --git a/lib/Net/Amazon/Request/Blended.pm b/lib/Net/Amazon/Request/Blended.pm
deleted file mode 100644
index 1000eec..0000000
--- a/lib/Net/Amazon/Request/Blended.pm
+++ /dev/null
@@ -1,80 +0,0 @@
-######################################################################
-package Net::Amazon::Request::Blended;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon::Request);
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    $class->_assert_options_defined(\%options, 'blended');
-
-    $class->_convert_option(\%options,
-                            'blended',
-                            'BlendedSearch');
-
-    my $self = $class->SUPER::new(%options);
-
-    bless $self, $class;   # reconsecrate
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Net::Amazon::Request::Blended - request class for 'Blended Search'
-
-=head1 SYNOPSIS
-
-  use Net::Amazon;
-  use Net::Amazon::Request::Blended;
-
-  my $ua = Net::Amazon->new(
-      token       => 'YOUR_AMZN_TOKEN'
-  );
-
-  my $req = Net::Amazon::Request::Blended->new( 
-      blended => 'perl'
-  );
-
-  # Response is of type Net::Amazon::Response::Blended
-  my $resp = $ua->request($req);
-
-=head1 DESCRIPTION
-
-C<Net::Amazon::Request::Blended> is a class used to request
-I<Blended Searches> from the Amazon web service.
-
-The C<blended> parameter specifies the keyword search string
-for the blended query. C<mode> is not applicable to blended
-searches which returns books, music, etc all at once.
-
-Upon success, the response's C<properties()> method will return a list
-of C<Net::Amazon::Property::*> objects.
-
-=head2 METHODS
-
-=over 4
-
-=item new(keyword => $search_string)
-
-Constructs a new C<Net::Amazon::Request::Blended> object.
-
-See the "Amazon Web Services 2.1 API and Integration Guide" for details.
-
-=back
-
-Check L<Net::Amazon::Request> for common request parameters not listed here.
-
-=head1 SEE ALSO
-
-=head1 AUTHORS
-
-Robert Graff, E<lt>rgraff@workingdemo.comE<gt>
-
-=cut
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
diff --git a/lib/Net/Amazon/Request/Exchange.pm b/lib/Net/Amazon/Request/Exchange.pm
deleted file mode 100644
index df75549..0000000
--- a/lib/Net/Amazon/Request/Exchange.pm
+++ /dev/null
@@ -1,91 +0,0 @@
-######################################################################
-package Net::Amazon::Request::Exchange;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon::Request);
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-   if(exists $options{exchange}) {
-       $options{ExchangeSearch} = $options{exchange};
-       delete $options{exchange};
-       $options{type} = "lite";
-       $options{mode} = "";
-  } else {
-      die "Mandatory parameter 'exchange' not defined";
-  }
-
-#    if(!exists $options{exchange}) {
-#        die "Mandatory parameter 'exchange' not defined";
-#    }
-
-   my $self = $class->SUPER::new(%options);
-
-   bless $self, $class;   # reconsecrate
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Net::Amazon::Request::Exchange - Class for submitting Exchange requests
-
-=head1 SYNOPSIS
-
-  use Net::Amazon;
-  use Net::Amazon::Request::Exchange;
-
-  my $ua = Net::Amazon->new(
-      token       => 'YOUR_AMZN_TOKEN'
-  );
-
-  my $req = Net::Amazon::Request::Exchange->new( 
-      exchange  => 'Y04Y3424291Y2398445'
-  );
-
-    # Response is of type Net::Amazon::Response::Seller
-  my $resp = $ua->request($req);
-
-=head1 DESCRIPTION
-
-C<Net::Amazon::Request::Exchange> is a class used to submit Exchange search
-requests to the Amazon web service. Exchange requests send an item's 
-exchange ID and retrieve a description of the item, offered by a third
-party seller on Amazon.
-
-Upon success, the responses' C<result()> method will return a single
-C<Net::Amazon::Result::Seller::Listing> object.
-
-Check L<Net::Amazon::Request> for common request parameters not listed here.
-
-=head2 METHODS
-
-=over 4
-
-=item new( exchange => $exchange_id )
-
-Constructs a new C<Net::Amazon::Request::Exchange> object, used to query
-the Amazon web service with the given seller id.
-
-=back
-
-=head1 SEE ALSO
-
-=head1 AUTHOR
-
-Mike Schilli, E<lt>m@perlmeister.comE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2005 by Mike Schilli E<lt>m@perlmeister.comE<gt>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself. 
-
-=cut
diff --git a/lib/Net/Amazon/Request/Keyword.pm b/lib/Net/Amazon/Request/Keyword.pm
deleted file mode 100644
index 0b15d1d..0000000
--- a/lib/Net/Amazon/Request/Keyword.pm
+++ /dev/null
@@ -1,90 +0,0 @@
-######################################################################
-package Net::Amazon::Request::Keyword;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon::Request);
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    $class->_assert_options_defined(\%options, 
-                                    qw(keyword mode));
-
-    $class->_convert_option(\%options,
-                            'keyword',
-                            'KeywordSearch');
-
-    my $self = $class->SUPER::new(%options);
-
-    bless $self, $class;   # reconsecrate
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Net::Amazon::Request::Keyword - request class for keyword search
-
-=head1 SYNOPSIS
-
-  use Net::Amazon;
-  use Net::Amazon::Request::Keyword;
-
-  my $ua = Net::Amazon->new(
-      token       => 'YOUR_AMZN_TOKEN'
-  );
-
-  my $req = Net::Amazon::Request::Keyword->new( 
-      keyword  => 'Zwan',
-      mode     => 'books'
-  );
-
-    # Response is of type Net::Amazon::Response::Keyword
-  my $resp = $ua->request($req);
-
-=head1 DESCRIPTION
-
-C<Net::Amazon::Request::Keyword> is a class used to submit keyword search
-requests to the Amazon web service.
-
-The keyword to search for is specified in the C<keyword> parameter.
-
-The catalog to search in is specified in the C<mode> parameter,
-typical values are C<books>, C<music>, C<classical> or C<electronics>.
-
-Upon success, the responses' C<properties()> method will return a list of
-C<Net::Amazon::Property::*> objects.
-
-=head2 METHODS
-
-=over 4
-
-=item new( keyword => $keyword, mode => $mode )
-
-Constructs a new C<Net::Amazon::Request::Keyword> object, used to query
-the Amazon web service for items matching a given keyword in the 
-mode (catalog) specified.
-
-=back
-
-Check L<Net::Amazon::Request> for common request parameters not listed here.
-
-=head1 SEE ALSO
-
-=head1 AUTHOR
-
-Mike Schilli, E<lt>m@perlmeister.comE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2003 by Mike Schilli E<lt>m@perlmeister.comE<gt>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself. 
-
-=cut
diff --git a/lib/Net/Amazon/Request/Manufacturer.pm b/lib/Net/Amazon/Request/Manufacturer.pm
deleted file mode 100644
index 0e8adb8..0000000
--- a/lib/Net/Amazon/Request/Manufacturer.pm
+++ /dev/null
@@ -1,78 +0,0 @@
-######################################

-package Net::Amazon::Request::Manufacturer;

-######################################

-use warnings;

-use strict;

-use base qw(Net::Amazon::Request);

-

-######################################

-sub new {

-######################################

-   my($class, %options) = @_;

-

-   $class->_assert_options_defined(\%options,

-                                   'manufacturer');

-

-   $class->_convert_option(\%options,

-                           'manufacturer',

-                           'ManufacturerSearch');

-

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

-

-   bless $self, $class;   # reconsecrate

-}

-1;

-

-__END__

-

-=head1 NAME

-

-Net::Amazon::Request::Manufacturer - Class for submitting Manufacturer requests

-

-=head1 SYNOPSIS

-

-  use Net::Amazon;

-  use Net::Amazon::Request::Manufacturer;

-

-  my $ua = Net::Amazon->new(

-      token       => 'YOUR_AMZN_TOKEN'

-  );

-

-  my $req = Net::Amazon::Request::Manufacturer->new( 

-      manufacturer  => 'Disney'

-  );

-

-    # Response is of type Net::Amazon::Response::Manufacturer

-  my $resp = $ua->request($req);

-

-=head1 DESCRIPTION

-

-C<Net::Amazon::Request::Manufacturer> is a class used to submit 

-searches for items made by a given manufacturer.

-

-The manufacturer to search for is specified in the C<manufacturer> parameter.

-

-Upon success, the responses' C<properties()> method will return one

-or more C<Net::Amazon::Property::*> objects.

-

-=head2 METHODS

-

-=over 4

-

-=item new( manufacturer => $manufacturer )

-

-Constructs a new C<Net::Amazon::Request::Manufacturer> object, used to query

-the Amazon web service for an item with the specified manufacturer name.

-

-=back

-

-Check L<Net::Amazon::Request> for common request parameters not listed here.

-

-=head1 SEE ALSO

-

-=head1 AUTHORS

-

-Bill Fitzpatrick

-Mike Schilli, E<lt>m@perlmeister.comE<gt>

-

-=cut

diff --git a/lib/Net/Amazon/Request/Power.pm b/lib/Net/Amazon/Request/Power.pm
deleted file mode 100644
index fdfd74e..0000000
--- a/lib/Net/Amazon/Request/Power.pm
+++ /dev/null
@@ -1,95 +0,0 @@
-######################################################################
-package Net::Amazon::Request::Power;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon::Request);
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    $class->_assert_options_defined(\%options, 
-                                    qw(power mode));
-
-    $class->_convert_option(\%options,
-                            'power',
-                            'PowerSearch');
-
-    my $self = $class->SUPER::new(%options);
-
-    bless $self, $class;   # reconsecrate
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Net::Amazon::Request::Power - request class for 'Power Search'
-
-=head1 SYNOPSIS
-
-  use Net::Amazon;
-  use Net::Amazon::Request::Power;
-
-  my $ua = Net::Amazon->new(
-      token       => 'YOUR_AMZN_TOKEN'
-  );
-
-  my $req = Net::Amazon::Request::Power->new( 
-      power => 'subject: perl and author: schwartz',
-      mode  => 'books',
-  );
-
-    # Response is of type Net::Amazon::Response::Power
-  my $resp = $ua->request($req);
-
-=head1 DESCRIPTION
-
-C<Net::Amazon::Request::Power> is a class used to request
-so-called I<Power Searches> from the Amazon web service.
-
-The C<power> parameter specifies the power search string, C<mode>
-defines which properties to look for.
-
-Upon success, the response's C<properties()> method will return a list
-of C<Net::Amazon::Property::*> objects.
-
-=head2 METHODS
-
-=over 4
-
-=item new(power => $search_string, mode => $property)
-
-Constructs a new C<Net::Amazon::Request::Power> object. C<$property>
-is typically C<"books">. Examples for C<$search_string> are:
-
-    author: schwartz
-
-    author: schwartz and pubdate: after 10-2002
-
-    subject: perl and (objects or object-oriented)
-
-    keywords: "high tech*" and not fiction and pubdate: during 1999
-
-    power "author: randal schwartz and publisher: Addison Wesley"
- 
-    author: randal schwartz and title: object books
-
-See the "Amazon Web Services 2.1 API and Integration Guide" for details.
-
-=back
-
-Check L<Net::Amazon::Request> for common request parameters not listed here.
-
-=head1 SEE ALSO
-
-=head1 AUTHORS
-
-Martin Streicher, E<lt>martin.streicher@apress.comE<gt>
-Mike Schilli, E<lt>m@perlmeister.comE<gt>
-
-=cut
diff --git a/lib/Net/Amazon/Request/Seller.pm b/lib/Net/Amazon/Request/Seller.pm
deleted file mode 100644
index 54e1930..0000000
--- a/lib/Net/Amazon/Request/Seller.pm
+++ /dev/null
@@ -1,84 +0,0 @@
-######################################################################
-package Net::Amazon::Request::Seller;
-######################################################################
-use base qw(Net::Amazon::Request);
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    if(exists $options{seller}) {
-        $options{SellerSearch} = $options{seller};
-        delete $options{seller};
-    } else {
-        die "Mandatory parameter 'seller' not defined";
-    }
-
-    my $self = $class->SUPER::new(%options);
-
-    bless $self, $class;   # reconsecrate
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Net::Amazon::Request::Seller - Class for submitting Seller requests
-
-=head1 SYNOPSIS
-
-  use Net::Amazon;
-  use Net::Amazon::Request::Seller;
-
-  my $ua = Net::Amazon->new(
-      token       => 'YOUR_AMZN_TOKEN'
-  );
-
-  my $req = Net::Amazon::Request::Seller->new( 
-      seller  => 'A2GXAGU54VOP7'
-  );
-
-    # Response is of type Net::Amazon::Response::Seller
-  my $resp = $ua->request($req);
-
-=head1 DESCRIPTION
-
-C<Net::Amazon::Request::Seller> is a class used to submit Seller search
-requests to the Amazon web service.
-
-The seller to search for is specified in the C<seller> parameter, which
-contains the seller's ID (not the seller's nickname!).
-
-Upon success, the responses' C<result()> method will return a single
-C<Net::Amazon::Result::Seller> object.
-
-Check L<Net::Amazon::Request> for common request parameters not listed here.
-
-=head2 METHODS
-
-=over 4
-
-=item new( seller => $seller_id )
-
-Constructs a new C<Net::Amazon::Request::Seller> object, used to query
-the Amazon web service with the given seller id.
-
-=back
-
-=head1 SEE ALSO
-
-=head1 AUTHOR
-
-Mike Schilli, E<lt>m@perlmeister.comE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2004 by Mike Schilli E<lt>m@perlmeister.comE<gt>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself. 
-
-=cut
diff --git a/lib/Net/Amazon/Request/Similar.pm b/lib/Net/Amazon/Request/Similar.pm
deleted file mode 100644
index c5b5a53..0000000
--- a/lib/Net/Amazon/Request/Similar.pm
+++ /dev/null
@@ -1,95 +0,0 @@
-######################################################################
-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',
-                            'SimilaritySearch');
-
-    my $self = $class->SUPER::new(%options);
-
-    bless $self, $class;   # reconsecrate
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Net::Amazon::Request::Similar - request class for 'Similarities Search'
-
-=head1 SYNOPSIS
-
-  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);
-
-=head1 DESCRIPTION
-
-C<Net::Amazon::Request::Similar> is a class used to request
-so-called I<Similarities Searches> from the Amazon web service.
-
-The C<asin> parameter specifies the ASIN of the item which you want
-to get similar items for.
-
-Upon success, the response's C<properties()> method will return a list
-of C<Net::Amazon::Property::*> objects.
-
-=head2 METHODS
-
-=over 4
-
-=item new(similar => $asin)
-
-Constructs a new C<Net::Amazon::Request::Similar> object.
-
-=back
-
-Check L<Net::Amazon::Request> for common request parameters not listed here.
-
-=head1 SEE ALSO
-
-=head1 AUTHOR
-
-Mike Schilli, E<lt>m@perlmeister.comE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2003 by Mike Schilli E<lt>m@perlmeister.comE<gt>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself. 
-
-=cut
diff --git a/lib/Net/Amazon/Request/Sort.pm b/lib/Net/Amazon/Request/Sort.pm
deleted file mode 100644
index 059845d..0000000
--- a/lib/Net/Amazon/Request/Sort.pm
+++ /dev/null
@@ -1,246 +0,0 @@
-=pod

-

-=head1 SORT TYPES

-

-Search results can be sorted in various ways, depending on the type of

-product returned by the search.  If a sort parameter isn't specified in

-the request, the results will be ordered as if the +salesrank value is

-specified.

-

-=head2 Sorting Books Results

-

-   +---------------------------------------------------+

-   | Sort Type               | Value                   |

-   |-------------------------+-------------------------+

-   | Featured Items          | +pmrank                 |

-   |-------------------------+-------------------------+

-   | Bestselling             | +salesrank              |

-   |-------------------------+-------------------------+

-   | Average Customer Review | +reviewrank             |

-   |-------------------------+-------------------------+

-   | Price (Low to High)     | +pricerank              |

-   |-------------------------+-------------------------+

-   | Price (High to Low)     | +inverse-pricerank      |

-   |-------------------------+-------------------------+

-   | Publication Date        | +daterank               |

-   |-------------------------+-------------------------+

-   | Alphabetical (A-Z)      | +titlerank              |

-   |-------------------------+-------------------------+

-   | Alphabetical (Z-A)      | -titlerank              |

-   +---------------------------------------------------+

-

-=head2 Sorting Software Results

-

-   +---------------------------------------------------+

-   | Sort Type               | Value                   |

-   |-------------------------+-------------------------+

-   | Featured items          | +pmrank                 |

-   |-------------------------+-------------------------+

-   | Bestselling             | +salesrank              |

-   |-------------------------+-------------------------+

-   | Alphabetical            | +titlerank              |

-   |-------------------------+-------------------------+

-   | Price (High to Low)     | +price                  |

-   |-------------------------+-------------------------+

-   | Price (Low to High)     | -price                  |

-   +---------------------------------------------------+

-

-=head2 Sorting Outdoor Living Results

-

-   +---------------------------------------------------+

-   | Sort Type               | Value                   |

-   |-------------------------+-------------------------+

-   | Featured Items          | +psrank                 |

-   |-------------------------+-------------------------+

-   | Bestselling             | +salesrank              |

-   |-------------------------+-------------------------+

-   | Alphabetical (A-Z)      | +titlerank              |

-   |-------------------------+-------------------------+

-   | Alphabetical (Z-A)      | -titlerank              |

-   |-------------------------+-------------------------+

-   | Manufacturer (A-Z)      | +manufactrank           |

-   |-------------------------+-------------------------+

-   | Manufacturer (Z-A)      | -manufactrank           |

-   |-------------------------+-------------------------+

-   | Price (Low to High)     | +price                  |

-   |-------------------------+-------------------------+

-   | Price (High to Low)     | -price                  |

-   +---------------------------------------------------+

-

-=head2 Sorting Tools Results

-

-   +---------------------------------------------------+

-   | Sort Type               | Value                   |

-   |-------------------------+-------------------------+

-   | Featured Items          | +psrank                 |

-   |-------------------------+-------------------------+

-   | Bestselling             | +salesrank              |

-   |-------------------------+-------------------------+

-   | Alphabetical (A-Z)      | +titlerank              |

-   |-------------------------+-------------------------+

-   | Alphabetical (Z-A)      | -titlerank              |

-   |-------------------------+-------------------------+

-   | Manufacturer (A-Z)      | +manufactrank           |

-   |-------------------------+-------------------------+

-   | Manufacturer (Z-A)      | -manufactrank           |

-   |-------------------------+-------------------------+

-   | Price (Low to High)     | +price                  |

-   |-------------------------+-------------------------+

-   | Price (High to Low)     | -price                  |

-   +---------------------------------------------------+

-

-=head2 Sorting Camera and Photo Results

-

-   +---------------------------------------------------+

-   | Sort Type               | Value                   |

-   |-------------------------+-------------------------+

-   | Featured Items          | +pmrank                 |

-   |-------------------------+-------------------------+

-   | Bestselling             | +salesrank              |

-   |-------------------------+-------------------------+

-   | Alphabetical (A-Z)      | +titlerank              |

-   |-------------------------+-------------------------+

-   | Alphabetical (Z-A)      | -titlerank              |

-   +---------------------------------------------------+

-

-=head2 Sorting Computers Results

-

-   +---------------------------------------------------+

-   | Sort Type               | Value                   |

-   |-------------------------+-------------------------+

-   | Featured Items          | +psrank                 |

-   |-------------------------+-------------------------+

-   | Bestselling             | +salesrank              |

-   |-------------------------+-------------------------+

-   | Alphabetical (A-Z)      | +titlerank              |

-   |-------------------------+-------------------------+

-   | Alphabetical (Z-A)      | -titlerank              |

-   +---------------------------------------------------+

-

-=head2 Sorting Video Games Results

-

-   +---------------------------------------------------+

-   | Sort Type               | Value                   |

-   |-------------------------+-------------------------+

-   | Featured Items          | +pmrank                 |

-   |-------------------------+-------------------------+

-   | Bestselling             | +salesrank              |

-   |-------------------------+-------------------------+

-   | Alphabetical            | +titlerank              |

-   |-------------------------+-------------------------+

-   | Price (Low to High)     | +price                  |

-   |-------------------------+-------------------------+

-   | Price (High to Low)     | -price                  |

-   +---------------------------------------------------+

-

-=head2 Sorting Music Results

-

-   +---------------------------------------------------+

-   | Sort Type               | Value                   |

-   |-------------------------+-------------------------+

-   | Featured Items          | +psrank                 |

-   |-------------------------+-------------------------+

-   | Bestselling             | +salesrank              |

-   |-------------------------+-------------------------+

-   | Artist Name             | +artistrank             |

-   |-------------------------+-------------------------+

-   | Original Release Date   | +orig-rel-date          |

-   |-------------------------+-------------------------+

-   | Alphabetical            | +titlerank              |

-   +---------------------------------------------------+

-

-=head2 Sorting Office Products Results

-

-   +---------------------------------------------------+

-   | Sort Type               | Value                   |

-   |-------------------------+-------------------------+

-   | Featured Items          | +pmrank                 |

-   |-------------------------+-------------------------+

-   | Bestselling             | +salesrank              |

-   |-------------------------+-------------------------+

-   | Alphabetical (A-Z)      | +titlerank              |

-   |-------------------------+-------------------------+

-   | Alphabetical (Z-A)      | -titlerank              |

-   |-------------------------+-------------------------+

-   | Price (Low to High)     | +price                  |

-   |-------------------------+-------------------------+

-   | Price (High to Low)     | -price                  |

-   |-------------------------+-------------------------+

-   | Review                  | +reviewrank             |

-   +---------------------------------------------------+

-

-=head2 Sorting Video Results

-

-   +---------------------------------------------------+

-   | Sort Type               | Value                   |

-   |-------------------------+-------------------------+

-   | Featured Items          | +psrank                 |

-   |-------------------------+-------------------------+

-   | Bestselling             | +salesrank              |

-   |-------------------------+-------------------------+

-   | Alphabetical            | +titlerank              |

-   +---------------------------------------------------+

-

-=head2 Sorting Electronics Results

-

-   +---------------------------------------------------+

-   | Type                    | Value                   |

-   |-------------------------+-------------------------+

-   | Featured Items          | +pmrank                 |

-   |-------------------------+-------------------------+

-   | Bestselling             | +salesrank              |

-   |-------------------------+-------------------------+

-   | Alphabetical            | +titlerank              |

-   |-------------------------+-------------------------+

-   | Review                  | +reviewrank             |

-   +---------------------------------------------------+

-

-=head2 Sorting DVDs Results

-

-   +---------------------------------------------------+

-   | Type                    | Value                   |

-   |-------------------------+-------------------------+

-   | Bestselling             | +salesrank              |

-   |-------------------------+-------------------------+

-   | Alphabetical            | +titlerank              |

-   +---------------------------------------------------+

-

-=head2 Sorting Kitchen Results

-

-   +---------------------------------------------------+

-   | Type                    | Value                   |

-   |-------------------------+-------------------------+

-   | Featured Items          | +pmrank                 |

-   |-------------------------+-------------------------+

-   | Bestselling             | +salesrank              |

-   |-------------------------+-------------------------+

-   | Alphabetical (A-Z)      | +titlerank              |

-   |-------------------------+-------------------------+

-   | Alphabetical (Z-A)      | -titlerank              |

-   |-------------------------+-------------------------+

-   | Manufacturer (A-Z)      | +manufactrank           |

-   |-------------------------+-------------------------+

-   | Manufacturer (Z-A)      | -manufactrank           |

-   |-------------------------+-------------------------+

-   | Price (Low to High)     | +price                  |

-   |-------------------------+-------------------------+

-   | Price (High to Low)     | -price                  |

-   +---------------------------------------------------+

-

-=head2 Sorting Toys Results

-

-   +---------------------------------------------------+

-   |  Type                   | Value                   |

-   |-------------------------+-------------------------+

-   | Featured Items          | +pmrank                 |

-   |-------------------------+-------------------------+

-   | Bestselling             | +salesrank              |

-   |-------------------------+-------------------------+

-   | Price (Low to High)     | +pricerank              |

-   |-------------------------+-------------------------+

-   | Price (High to Low)     | +inverse-pricerank      |

-   |-------------------------+-------------------------+

-   | Alphabetical (A-Z)      | +titlerank              |

-   +---------------------------------------------------+

-

-=cut

diff --git a/lib/Net/Amazon/Request/TextStream.pm b/lib/Net/Amazon/Request/TextStream.pm
deleted file mode 100644
index 62a0717..0000000
--- a/lib/Net/Amazon/Request/TextStream.pm
+++ /dev/null
@@ -1,76 +0,0 @@
-######################################################################

-package Net::Amazon::Request::TextStream;

-######################################################################

-use warnings;

-use strict;

-use base qw(Net::Amazon::Request);

-

-##################################################

-sub new {

-##################################################

-    my($class, %options) = @_;

-

-    $class->_assert_options_defined(\%options,

-                                    'textstream');

-

-    $class->_convert_option(\%options,

-                            'textstream',

-                            'TextStreamSearch');

-

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

-

-    bless $self, $class;   # reconsecrate

-}

-

-1;

-

-__END__

-

-=head1 NAME

-

-Net::Amazon::Request::TextStream - request class for text stream search

-

-=head1 SYNOPSIS

-

-  use Net::Amazon;

-  use Net::Amazon::Request::TextStream;

-

-  my $ua = Net::Amazon->new(

-      token       => 'YOUR_AMZN_TOKEN'

-  );

-

-  my $req = Net::Amazon::Request::TextStream->new( 

-      textstream => 'Here is some text that mentions the Rolling Stones.',

-  );

-

-  # Response is of type Net::Amazon::Response::TextStream

-  my $resp = $ua->request($req);

-

-=head1 DESCRIPTION

-

-C<Net::Amazon::Request::TextStream> is a class used to perform a search on

-a block of text. Amazon extracts keywords from the given block of text,

-but note that conjunctions and helper words, such as "and", "or", "the",

-etc. are not excluded, so strip them out yourself if need be.

-

-TextStream searching is only available for the US service.

-

-Upon success, the response's C<properties()> method will return a list

-of C<Net::Amazon::Property::*> objects.

-

-=head2 METHODS

-

-=over 4

-

-=item new(textstream => $text)

-

-Constructs a new C<Net::Amazon::Request::TextStream> object, used to query

-the Amazon web service with a block of text.

-

-=back

-

-Check L<Net::Amazon::Request> for common request parameters not listed here.

-

-=head1 SEE ALSO

-

-=cut

diff --git a/lib/Net/Amazon/Request/UPC.pm b/lib/Net/Amazon/Request/UPC.pm
deleted file mode 100644
index ae77645..0000000
--- a/lib/Net/Amazon/Request/UPC.pm
+++ /dev/null
@@ -1,94 +0,0 @@
-######################################################################
-package Net::Amazon::Request::UPC;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon::Request);
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    $class->_assert_options_defined(\%options, 'upc');
-
-    $class->_convert_option(\%options, 
-                            'upc', 
-                            'UpcSearch');
-
-    my $self = $class->SUPER::new(%options);
-
-    bless $self, $class;   # reconsecrate
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Net::Amazon::Request::UPC - request class for UPC search
-
-=head1 SYNOPSIS
-
-  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);
-
-=head1 DESCRIPTION
-
-C<Net::Amazon::Request::UPC> is a class used to submit UPC (product barcode) 
-search requests to the Amazon web service.
-
-The UPC number to search for is specified in the C<upc> parameter.
-It currently works with the following values of the C<mode> parameter:
-C<music>, 
-C<classical>,
-C<software>,
-C<dvd>, 
-C<video>,
-C<vhs>, 
-C<electronics>,
-C<pc-hardware>, and 
-C<photo>.
-
-Upon success, the response's C<properties()> method will return a single
-C<Net::Amazon::Property::Music> object.
-
-=head2 METHODS
-
-=over 4
-
-=item new(upc => $upc)
-
-Constructs a new C<Net::Amazon::Request::UPC> object, used to query
-the Amazon web service for an item with the given UPC number.
-
-=back
-
-=head1 SEE ALSO
-
-=head1 AUTHOR
-
-Mike Schilli, E<lt>m@perlmeister.comE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2003 by Mike Schilli E<lt>m@perlmeister.comE<gt>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself. 
-
-=cut
diff --git a/lib/Net/Amazon/Request/Wishlist.pm b/lib/Net/Amazon/Request/Wishlist.pm
deleted file mode 100644
index 824d5d4..0000000
--- a/lib/Net/Amazon/Request/Wishlist.pm
+++ /dev/null
@@ -1,89 +0,0 @@
-######################################################################
-package Net::Amazon::Request::Wishlist;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon::Request);
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    # For backwards compatibility:
-    $class->_convert_option(\%options, 'id', 'wishlist');
-
-    $class->_assert_options_defined(\%options, 'wishlist');
-
-    $class->_convert_option(\%options,
-                            'wishlist',
-                            'WishlistSearch');
-
-    my $self = $class->SUPER::new(%options);
-
-    bless $self, $class;   # reconsecrate
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Net::Amazon::Request::Wishlist - request class for wishlist search
-
-=head1 SYNOPSIS
-
-  use Net::Amazon;
-  use Net::Amazon::Request::Wishlist;
-
-  my $ua = Net::Amazon->new(
-      token       => 'YOUR_AMZN_TOKEN'
-  );
-
-  my $req = Net::Amazon::Request::Wishlist->new( 
-      wishlist => '1XL5DWOUFMFVJ',
-  );
-
-    # Response is of type Net::Amazon::Response::Wishlist
-  my $resp = $ua->request($req);
-
-=head1 DESCRIPTION
-
-C<Net::Amazon::Request::Wishlist> is a class used to request
-a specified wishlist.
-
-The wishlist ID (can be found as parameters in URLs when a customer's
-Amazon wishlist is being pulled up) is specified in the C<id> parameter.
-
-Upon success, the response's C<properties()> method will return a list
-of C<Net::Amazon::Property::*> objects.
-
-=head2 METHODS
-
-=over 4
-
-=item new(wishlist => $id)
-
-Constructs a new C<Net::Amazon::Request::Wishlist> object, used to query
-the Amazon web service for a specific wishlist, identified by the wishlist
-ID.
-
-=back
-
-Check L<Net::Amazon::Request> for common request parameters not listed here.
-
-=head1 SEE ALSO
-
-=head1 AUTHOR
-
-Mike Schilli, E<lt>m@perlmeister.comE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2003 by Mike Schilli E<lt>m@perlmeister.comE<gt>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself. 
-
-=cut
diff --git a/lib/Net/Amazon/Response.pm b/lib/Net/Amazon/Response.pm
deleted file mode 100644
index 6147e0e..0000000
--- a/lib/Net/Amazon/Response.pm
+++ /dev/null
@@ -1,214 +0,0 @@
-######################################################################
-package Net::Amazon::Response;
-######################################################################
-use warnings;
-use strict;
-
-use base qw(Net::Amazon);
-
-use Text::Wrap qw($columns wrap);
-use XML::Simple;
-
-our @FORCE_ARRAY_FIELDS = ();
-
-__PACKAGE__->make_accessor($_) for qw(
-  status messages items xmlref total_results);
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    my $self = {
-        status        => "",
-        messages      => [],
-        items         => [],
-        xmlref        => {},
-        total_results => undef,
-    };
-
-    bless $self, $class;
-}
-
-sub message {
-  my($self) = @_;
-
-  return join(";",@{$self->{messages}});
-}
-
-###########################################
-sub is_success {
-###########################################
-    my($self) = @_;
-
-    return $self->{status} ? 1 : "";
-}
-
-###########################################
-sub is_error {
-###########################################
-    my($self) = @_;
-
-    return !$self->is_success();
-}
-
-###########################################
-sub push_item {
-###########################################
-    my($self, $item) = @_;
-
-    push @{$self->{items}}, $item;
-}
-
-###########################################
-sub as_string {
-###########################################
-    my($self) = @_;
-
-    return Data::Dumper::Dumper($self);
-}
-
-###########################################
-sub list_as_string {
-###########################################
-    my($self, @properties) = @_;
-
-    my $full = "";
-
-        # Column with
-    $columns   = 60;
-    my $bullet = 1;
-
-    foreach my $property (@properties) {
-        $full .= "\n" if $full;
-        my $bullet_string = sprintf("[%d]%s", 
-                                    $bullet, (" " x (3-length($bullet))));
-        $full .= wrap("", "     ", $bullet_string . $property->as_string());
-        $bullet++;
-    }
-
-    return $full;
-}
-
-##################################################
-sub properties {
-##################################################
-    my($self) = @_;
-
-    my @properties = ();
-
-    if($self->is_success && ref($self->{xmlref}->{Details}) eq 'ARRAY') {
-        foreach my $xmlref (@{$self->{xmlref}->{Details}}) {
-            my $property = Net::Amazon::Property::factory(xmlref => $xmlref);
-            push @properties, $property;
-        }
-    }
-
-    if(wantarray) {
-        return (@properties);
-    }
-
-    if(@properties) {
-            # Scalar context and we've got results. Return the first one.
-        return $properties[0];
-    }
-
-        # Scalar context and we don't have anything.
-    return undef;
-}
-
-##################################################
-sub xml_parse {
-##################################################
-    my($self, $xml) = @_;
-
-    my $xs = XML::Simple->new();
-    return $xs->XMLin($xml, ForceArray => [ @FORCE_ARRAY_FIELDS ]);
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Net::Amazon::Response - Baseclass for responses from Amazon's web service
-
-=head1 SYNOPSIS
-
-    $resp = $ua->request($request);
-
-    if($resp->is_success()) { 
-        print $resp->as_string();
-    }
-
-    if($resp->is_error()) {
-        print $resp->message();
-    }
- 
-    if($resp->is_success()) { 
-        for my $property ($resp->properties) {
-            print $property->as_string(), "\n";
-        }
-    }
-
-=head1 DESCRIPTION
-
-C<Net::Amazon::Response> is the baseclass for responses coming back 
-from the useragent's C<request> method. Responses are typically
-not of type C<Net::Amazon::Response> but one of its subclasses
-C<Net::Amazon::Response::*>. However, for basic error handling and
-dumping content, C<Net::Amazon::Response>'s methods are typically used,
-because we typically don't know what type of object we're 
-actually dealing with.
-
-=head2 METHODS
-
-=over 4
-
-=item is_success()
-
-Returns true if the request was successful. This doesn't mean any objects
-have been found, it just indicates a successful roundtrip.
-
-=item is_error()
-
-Returns true if an error occurred. Use C<message()> to determine what 
-kind of error.
-
-=item properties()
-
-Returns the list of C<Net::Amazon::Property> objects which were found
-by the query.
-
-=item as_string()
-
-Dumps the content of the response.
-
-=item message()
-
-Returns the error message as a string in case an error occurred. In case
-several errors occurred, they're stringed together. Look up C<messages()>
-if you need them separated.
-
-=item messages()
-
-Returns all error messages for a response as a reference to an array
-of string messages.
-
-=back
-
-=head1 SEE ALSO
-
-=head1 AUTHOR
-
-Mike Schilli, E<lt>m@perlmeister.comE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2003 by Mike Schilli E<lt>m@perlmeister.comE<gt>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself. 
-
-=cut
diff --git a/lib/Net/Amazon/Response/ASIN.pm b/lib/Net/Amazon/Response/ASIN.pm
deleted file mode 100644
index 32bad76..0000000
--- a/lib/Net/Amazon/Response/ASIN.pm
+++ /dev/null
@@ -1,28 +0,0 @@
-######################################################################
-package Net::Amazon::Response::ASIN;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon::Response);
-
-use Net::Amazon::Property;
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    my $self = $class->SUPER::new(%options);
-
-    bless $self, $class;   # reconsecrate
-}
-
-##################################################
-sub as_string {
-##################################################
-    my($self) = @_;
-
-    return $self->SUPER::list_as_string($self->properties);
-}
-
-1;
diff --git a/lib/Net/Amazon/Response/Artist.pm b/lib/Net/Amazon/Response/Artist.pm
deleted file mode 100644
index 0ee653b..0000000
--- a/lib/Net/Amazon/Response/Artist.pm
+++ /dev/null
@@ -1,29 +0,0 @@
-######################################################################
-package Net::Amazon::Response::Artist;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon::Response);
-
-use Net::Amazon::Property;
-use Data::Dumper;
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    my $self = $class->SUPER::new(%options);
-
-    bless $self, $class;   # reconsecrate
-}
-
-##################################################
-sub as_string {
-##################################################
-    my($self) = @_;
-
-    return $self->SUPER::list_as_string($self->properties);
-}
-
-1;
diff --git a/lib/Net/Amazon/Response/Blended.pm b/lib/Net/Amazon/Response/Blended.pm
deleted file mode 100644
index 3c75ded..0000000
--- a/lib/Net/Amazon/Response/Blended.pm
+++ /dev/null
@@ -1,73 +0,0 @@
-######################################################################
-package Net::Amazon::Response::Blended;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon::Response);
-
-use Net::Amazon::Property;
-use XML::Simple;
-
-our @FORCE_ARRAY_FIELDS = qw(ProductLine);
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    my $self = $class->SUPER::new(%options);
-
-    bless $self, $class;   # reconsecrate
-}
-
-##################################################
-sub as_string {
-##################################################
-    my($self) = @_;
-
-    return $self->SUPER::list_as_string($self->properties);
-}
-
-##################################################
-sub xmlref_add {
-##################################################
-    my($self, $xmlref) = @_;
-
-    my $nof_items_added = 0;
-
-    unless(ref($self->{xmlref}) eq "HASH" &&
-           ref($self->{xmlref}->{Details}) eq "ARRAY") {
-        $self->{xmlref}->{Details} = [];
-    }
-
-    if ($xmlref->{ProductLine} && (ref($xmlref->{ProductLine}) eq "ARRAY")) {
-        my @lines = @{$xmlref->{ProductLine}}; # Copy the lines
-            # sort the copies by relevance
-        @lines = sort { $a->{RelevanceRank} <=> $b->{RelevanceRank} } @lines;
-
-        foreach (@lines) {
-              next unless $_->{ProductInfo}->{Details};
-              my $details = $_->{ProductInfo}->{Details};
-              if (ref($details) eq "ARRAY") {
-                  push @{$self->{xmlref}->{Details}}, @$details;
-                  $nof_items_added += scalar @$details;
-              } else {
-                  push @{$self->{xmlref}->{Details}}, $details;
-                  $nof_items_added++;
-              }
-        }
-    }
-
-    return $nof_items_added;
-}
-
-##################################################
-sub xml_parse {
-##################################################
-    my($self, $xml) = @_;
-
-    my $xs = XML::Simple->new();
-    return $xs->XMLin($xml, ForceArray => [ @FORCE_ARRAY_FIELDS ]);
-}
-
-1;
diff --git a/lib/Net/Amazon/Response/BrowseNode.pm b/lib/Net/Amazon/Response/BrowseNode.pm
deleted file mode 100644
index 8f40a63..0000000
--- a/lib/Net/Amazon/Response/BrowseNode.pm
+++ /dev/null
@@ -1,29 +0,0 @@
-######################################################################
-package Net::Amazon::Response::BrowseNode;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon::Response);
-
-use Net::Amazon::Property;
-use Data::Dumper;
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    my $self = $class->SUPER::new(%options);
-
-    bless $self, $class;   # reconsecrate
-}
-
-##################################################
-sub as_string {
-##################################################
-    my($self) = @_;
-
-    return $self->SUPER::list_as_string($self->properties);
-}
-
-1;
diff --git a/lib/Net/Amazon/Response/Exchange.pm b/lib/Net/Amazon/Response/Exchange.pm
deleted file mode 100644
index 56852fe..0000000
--- a/lib/Net/Amazon/Response/Exchange.pm
+++ /dev/null
@@ -1,81 +0,0 @@
-######################################################################
-package Net::Amazon::Response::Exchange;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon::Response);
-
-use Net::Amazon::Property;
-use Net::Amazon::Result::Seller::Listing;
-use Log::Log4perl qw(:easy);
-
-__PACKAGE__->make_array_accessor($_) for qw(listings);
-
-##################################################
-sub new {
-##################################################
-   my($class, %options) = @_;
-
-   my $self = $class->SUPER::new(%options);
-
-   bless $self, $class;   # reconsecrate
-}
-
-##################################################
-sub result {
-##################################################
-    my($self) = @_;
-
-    if($self->is_success()) {
-        return Net::Amazon::Result::Seller::Listing->new(
-            xmlref => $self->{xmlref}->{ListingProductDetails}->[0],
-        );
-    }
-
-    return undef;
-}
-
-##################################################
-sub as_string {
-##################################################
-   my($self) = @_;
-
-   return "TODO: as_string not defined yet in ", __PACKAGE__;
-}
-
-##################################################
-sub xmlref_add {
-##################################################
-    my($self, $xmlref) = @_;
-
-    my $nof_items_added = 0;
-
-    unless(ref($self->{xmlref}) eq "HASH" &&
-        ref($self->{xmlref}->{ListingProductDetails}) eq "ARRAY") {
-        $self->{xmlref}->{Details} = [];
-    }
-
-    if(ref($xmlref->{ListingProductDetails}) eq "ARRAY") {
-            # Is it an array of items?
-        push @{$self->{xmlref}->{ListingProductDetails}},
-             @{$xmlref->{ListingProductDetails}};
-        $nof_items_added = scalar @{$xmlref->{ListingProductDetails}};
-    } else {
-            # It is a single item
-        push @{$self->{xmlref}->{ListingProductDetails}},
-             $xmlref->{ListingProductDetails};
-        $nof_items_added = 1;
-    }
-
-    return $nof_items_added;
-}
-
-##################################################
-sub properties {
-##################################################
-    my($self) = @_;
-
-    die "properties() not defined in ", __PACKAGE__, ". Use result() instead";
-}
-
-1;
diff --git a/lib/Net/Amazon/Response/Keyword.pm b/lib/Net/Amazon/Response/Keyword.pm
deleted file mode 100644
index f6277d6..0000000
--- a/lib/Net/Amazon/Response/Keyword.pm
+++ /dev/null
@@ -1,29 +0,0 @@
-######################################################################
-package Net::Amazon::Response::Keyword;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon::Response);
-
-use Net::Amazon::Property;
-use Data::Dumper;
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    my $self = $class->SUPER::new(%options);
-
-    bless $self, $class;   # reconsecrate
-}
-
-##################################################
-sub as_string {
-##################################################
-    my($self) = @_;
-
-    return $self->SUPER::list_as_string($self->properties);
-}
-
-1;
diff --git a/lib/Net/Amazon/Response/Manufacturer.pm b/lib/Net/Amazon/Response/Manufacturer.pm
deleted file mode 100644
index 97ceebf..0000000
--- a/lib/Net/Amazon/Response/Manufacturer.pm
+++ /dev/null
@@ -1,29 +0,0 @@
-######################################################################

-package Net::Amazon::Response::Manufacturer;

-######################################################################

-use warnings;

-use strict;

-use base qw(Net::Amazon::Response);

-

-use Net::Amazon::Property;

-use Data::Dumper;

-

-##################################################

-sub new {

-##################################################

-    my($class, %options) = @_;

-

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

-

-    bless $self, $class;   # reconsecrate

-}

-

-##################################################

-sub as_string {

-##################################################

-    my($self) = @_;

-

-    return $self->SUPER::list_as_string($self->properties);

-}

-

-1;

diff --git a/lib/Net/Amazon/Response/Power.pm b/lib/Net/Amazon/Response/Power.pm
deleted file mode 100644
index 88cdd2d..0000000
--- a/lib/Net/Amazon/Response/Power.pm
+++ /dev/null
@@ -1,28 +0,0 @@
-######################################################################
-package Net::Amazon::Response::Power;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon::Response);
-
-use Net::Amazon::Property;
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    my $self = $class->SUPER::new(%options);
-
-    bless $self, $class;   # reconsecrate
-}
-
-##################################################
-sub as_string {
-##################################################
-    my($self) = @_;
-
-    return $self->SUPER::list_as_string($self->properties);
-}
-
-1;
diff --git a/lib/Net/Amazon/Response/Seller.pm b/lib/Net/Amazon/Response/Seller.pm
deleted file mode 100644
index f33ed50..0000000
--- a/lib/Net/Amazon/Response/Seller.pm
+++ /dev/null
@@ -1,78 +0,0 @@
-#############################################
-package Net::Amazon::Response::Seller;
-#############################################
-use base qw(Net::Amazon::Response);
-
-use Net::Amazon::Result::Seller;
-use Data::Dumper;
-use Log::Log4perl qw(:easy);
-
-##############################
-sub new {
-##############################
-    my($class, %options) = @_;
-   
-    my $self = $class->SUPER::new(%options);
-    bless $self, $class;   # reconsecrate
-}
-
-##################################################
-sub result {
-##################################################
-    my($self) = @_;
-
-    if($self->is_success()) {
-        DEBUG "Calling Seller constructor with ", Dumper($self);
-        return Net::Amazon::Result::Seller->new(
-            xmlref => $self->{xmlref}->{SellerSearchDetails}->[0],
-        );
-    }
-
-    return undef;
-}
-
-##################################################
-sub properties {
-##################################################
-    my($self) = @_;
-
-    die "properties() not defined in ", __PACKAGE__, ". Use result() instead";
-}
-
-##################################################
-sub as_string {
-##################################################
-    my($self) = @_;
-
-    return $self->result()->as_string();
-}
-
-##################################################
-sub xmlref_add {
-##################################################
-    my($self, $xmlref) = @_;
-
-    my $nof_items_added = 0;
-
-    unless(ref($self->{xmlref}) eq "HASH" &&
-        ref($self->{xmlref}->{SellerSearchDetails}) eq "ARRAY") {
-        $self->{xmlref}->{Details} = [];
-    }
-
-    if(ref($xmlref->{SellerSearchDetails}) eq "ARRAY") {
-            # Is it an array of items?
-        push @{$self->{xmlref}->{SellerSearchDetails}},
-             @{$xmlref->{SellerSearchDetails}};
-        $nof_items_added = scalar @{$xmlref->{SellerSearchDetails}};
-    } else {
-            # It is a single item
-        push @{$self->{xmlref}->{SellerSearchDetails}},
-             $xmlref->{SellerSearchDetails};
-        $nof_items_added = 1;
-    }
-
-    #DEBUG("xmlref_add (after):", Data::Dumper::Dumper($self));
-    return $nof_items_added;
-} 
-
-1;
diff --git a/lib/Net/Amazon/Response/Similar.pm b/lib/Net/Amazon/Response/Similar.pm
deleted file mode 100644
index 27add88..0000000
--- a/lib/Net/Amazon/Response/Similar.pm
+++ /dev/null
@@ -1,28 +0,0 @@
-######################################################################
-package Net::Amazon::Response::Similar;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon::Response);
-
-use Net::Amazon::Property;
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    my $self = $class->SUPER::new(%options);
-
-    bless $self, $class;   # reconsecrate
-}
-
-##################################################
-sub as_string {
-##################################################
-    my($self) = @_;
-
-    return $self->SUPER::list_as_string($self->properties);
-}
-
-1;
diff --git a/lib/Net/Amazon/Response/TextStream.pm b/lib/Net/Amazon/Response/TextStream.pm
deleted file mode 100644
index 0cee872..0000000
--- a/lib/Net/Amazon/Response/TextStream.pm
+++ /dev/null
@@ -1,28 +0,0 @@
-######################################################################

-package Net::Amazon::Response::TextStream;

-######################################################################

-use warnings;

-use strict;

-use base qw(Net::Amazon::Response);

-

-use Net::Amazon::Property;

-

-##################################################

-sub new {

-##################################################

-    my($class, %options) = @_;

-

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

-

-    bless $self, $class;   # reconsecrate

-}

-

-##################################################

-sub as_string {

-##################################################

-    my($self) = @_;

-

-    return $self->SUPER::list_as_string($self->properties);

-}

-

-1;

diff --git a/lib/Net/Amazon/Response/UPC.pm b/lib/Net/Amazon/Response/UPC.pm
deleted file mode 100644
index 4fba4ad..0000000
--- a/lib/Net/Amazon/Response/UPC.pm
+++ /dev/null
@@ -1,40 +0,0 @@
-######################################################################
-package Net::Amazon::Response::UPC;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon::Response);
-
-use Net::Amazon::Property;
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    my $self = $class->SUPER::new(%options);
-
-    bless $self, $class;   # reconsecrate
-}
-
-##################################################
-sub as_string {
-##################################################
-    my($self) = @_;
-
-    my($property) = $self->properties;
-    return $property->as_string();
-}
-
-##################################################
-sub properties {
-##################################################
-    my($self) = @_;
-
-    my $property = Net::Amazon::Property::factory(
-        xmlref => $self->{xmlref}->{Details}->[0]);
-
-    return ($property);
-}
-
-1;
diff --git a/lib/Net/Amazon/Response/Wishlist.pm b/lib/Net/Amazon/Response/Wishlist.pm
deleted file mode 100644
index 15fd999..0000000
--- a/lib/Net/Amazon/Response/Wishlist.pm
+++ /dev/null
@@ -1,29 +0,0 @@
-######################################################################
-package Net::Amazon::Response::Wishlist;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon::Response);
-
-use Net::Amazon::Property;
-use Data::Dumper;
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    my $self = $class->SUPER::new(%options);
-
-    bless $self, $class;   # reconsecrate
-}
-
-##################################################
-sub as_string {
-##################################################
-    my($self) = @_;
-
-    return $self->SUPER::list_as_string($self->properties);
-}
-
-1;
diff --git a/lib/Net/Amazon/Result/Seller.pm b/lib/Net/Amazon/Result/Seller.pm
deleted file mode 100644
index cb876a6..0000000
--- a/lib/Net/Amazon/Result/Seller.pm
+++ /dev/null
@@ -1,130 +0,0 @@
-######################################################################
-package Net::Amazon::Result::Seller;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon);
-
-use Data::Dumper;
-use Log::Log4perl qw(:easy);
-use Net::Amazon::Result::Seller::Listing;
-
-our @DEFAULT_ATTRIBUTES = qw(StoreName SellerNickname 
-                             NumberOfOpenListings StoreId);
-__PACKAGE__->make_accessor($_) for @DEFAULT_ATTRIBUTES;
-__PACKAGE__->make_array_accessor($_) for qw(listings);
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    if(!$options{xmlref}) {
-        die "Mandatory param xmlref missing";
-    }
-
-    my @listings = ();
-
-    my $self = { 
-        %options, 
-               };
-
-    bless $self, $class;
-
-        # Set default attributes
-    for my $attr (@DEFAULT_ATTRIBUTES) {
-        DEBUG "Setting attribute $attr to $options{xmlref}->{$attr}";
-        $self->$attr($options{xmlref}->{$attr});
-    }
-
-    for my $listing (@{$options{xmlref}->{ListingProductInfo}->{ListingProductDetails}}) {
-        push @listings, 
-             Net::Amazon::Result::Seller::Listing->new(
-                 xmlref => $listing);
-    }
-
-    $self->listings(\@listings);
-
-    return $self;
-}
-
-##################################################
-sub as_string {
-##################################################
-    my($self) = @_;
-
-    my $result = $self->StoreName() . 
-                 " (" .
-                 $self->SellerNickname() .
-                 "): " .
-                 $self->NumberOfOpenListings() .
-                 "";
-
-    return $result;
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Net::Amazon::Result::Seller - Class for Seller info
-
-=head1 SYNOPSIS
-
-  use Net::Amazon;
-
-  # ...
-
-  if($resp->is_success()) {
-      print $resp->result()->as_string();
-  }
-
-=head1 DESCRIPTION
-
-C<Net::Amazon::Result::Seller> is a container for results on a seller 
-search. It contains data on one particular seller (the one turned up by
-the previous search) and the listings this seller is currently running.
-
-=head2 METHODS
-
-=over 4
-
-=item StoreName()
-
-Name of the seller's store.
-
-=item SellerNickname()
-
-Seller's nickname.
-
-=item StoreId()
-
-ID of seller's store.
-
-=item NumberOfOpenListings()
-
-Number of listings the seller has currently open.
-
-=item listings()
-
-Returns an array of C<Net::Amazon::Result::Seller::Listing> objects.
-See the documentation of this class for details.
-
-=back
-
-=head1 SEE ALSO
-
-=head1 AUTHOR
-
-Mike Schilli, E<lt>m@perlmeister.comE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2004 by Mike Schilli E<lt>m@perlmeister.comE<gt>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself. 
-
-=cut
diff --git a/lib/Net/Amazon/Result/Seller/Listing.pm b/lib/Net/Amazon/Result/Seller/Listing.pm
deleted file mode 100644
index c09ec08..0000000
--- a/lib/Net/Amazon/Result/Seller/Listing.pm
+++ /dev/null
@@ -1,146 +0,0 @@
-######################################################################
-package Net::Amazon::Result::Seller::Listing;
-######################################################################
-use warnings;
-use strict;
-use base qw(Net::Amazon);
-
-use Data::Dumper;
-use Log::Log4perl qw(:easy);
-
-our @DEFAULT_ATTRIBUTES = qw(
-  ExchangeStartDate ExchangeConditionType
-  ExchangeAsin ExchangeSellerId ExchangeEndDate ExchangePrice
-  ExchangeSellerRating ExchangeStatus ExchangeId ExchangeTitle
-  ExchangeQuantityAllocated ExchangeQuantity ExchangeSellerCountry
-  ExchangeSellerState ExchangeSellerNickname ExchangeFeaturedCategory
-  ExchangeAvailability ExchangeOfferingType ListingId ExchangeCondition
-  ExchangeDescription
-);
-
-__PACKAGE__->make_accessor($_) for @DEFAULT_ATTRIBUTES;
-
-##################################################
-sub new {
-##################################################
-    my($class, %options) = @_;
-
-    if(!$options{xmlref}) {
-        die "Mandatory param xmlref missing";
-    }
-
-    my $self = { 
-        %options, 
-               };
-
-    bless $self, $class;
-
-    DEBUG "Calling Listing with xmlref=", Dumper($options{xmlref});
-
-        # Set default attributes
-    for my $attr (@DEFAULT_ATTRIBUTES) {
-        $self->$attr($options{xmlref}->{$attr});
-    }
-
-    return $self;
-}
-
-##################################################
-sub as_string {
-##################################################
-    my($self) = @_;
-
-    my $result = 
-                 $self->ExchangeTitle() .
-                 " (" .
-                 $self->ExchangeAsin() . 
-                 "): " .
-                 $self->ExchangePrice() .
-                 "";
-
-    return $result;
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Net::Amazon::Result::Seller::Listing - Class for a single Listing of a Seller
-
-=head1 SYNOPSIS
-
-  for($seller_search_resp->result()->seller()->listings()) {
-      print $_->as_string(), "\n";
-  }
-
-=head1 DESCRIPTION
-
-C<Net::Amazon::Result::Seller::Listing> is a container for a single listing
-owned by a third-party seller, who is represented by a
-C<Net::Amazon::Result::Seller> object.
-
-An object of this class is also returned by an C<Exchange> request, using
-C<Net::Amazon::Response::Exchange>'s C<result> method.
-
-=head2 METHODS
-
-=over 4
-
-=item ExchangeStartDate()
-
-=item ExchangeConditionType()
-
-=item ExchangeAsin()
-
-=item ExchangeSellerId()
-
-=item ExchangeEndDate()
-
-=item ExchangePrice()
-
-=item ExchangeSellerRating()
-
-=item ExchangeStatus()
-
-=item ExchangeId()
-
-=item ExchangeTitle()
-
-=item ExchangeQuantityAllocated()
-
-=item ExchangeQuantity()
-
-=item ExchangeSellerCountry()
-
-=item ExchangeSellerState()
-
-=item ExchangeSellerNickname()
-
-=item ExchangeFeaturedCategory()
-
-=item ExchangeAvailability()
-
-=item ExchangeOfferingType()
-
-=item ListingId()
-
-=item ExchangeCondition()
-
-=back
-
-=head1 SEE ALSO
-
-=head1 AUTHOR
-
-Mike Schilli, E<lt>m@perlmeister.comE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2004 by Mike Schilli E<lt>m@perlmeister.comE<gt>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself. 
-
-=cut