1###################################################################### 2package Net::Amazon::Response::ISBN; 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 my($property) = $self->properties; 26 return $property->as_string(); 27} 28 29################################################## 30sub properties { 31################################################## 32 my($self) = @_; 33 34 my $property = Net::Amazon::Property::factory( 35 xmlref => $self->{xmlref}->{Items}->[0]); 36 37 return ($property); 38} 39 401; 41