1######################################################################
2package Net::Amazon::Response::ASIN;
3######################################################################
4use warnings;
5use strict;
6use base qw(Net::Amazon::Response);
7
8use Net::Amazon::Property;
9
10##################################################
11sub new {
12##################################################
13    my($class, %options) = @_;
14
15    my $self = $class->SUPER::new(%options);
16
17    bless $self, $class;   # reconsecrate
18}
19
20##################################################
21sub as_string {
22##################################################
23    my($self) = @_;
24
25    return $self->SUPER::list_as_string($self->properties);
26}
27
281;
29