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