1###################################################################### 2package Net::Amazon::Response::TextStream; 3###################################################################### 4use warnings; 5use strict; 6use base qw(Net::Amazon::Response); 7 8use Net::Amazon::Property; 9use Log::Log4perl qw(:easy get_logger); 10 11################################################## 12sub new { 13################################################## 14 my($class, %options) = @_; 15 16 my $self = $class->SUPER::new(%options); 17 18 bless $self, $class; # reconsecrate 19} 20 21################################################## 22sub is_page_available { 23################################################## 24 my($self, $ref, $new_items) = @_; 25 DEBUG("TextStream does not allow the fetching of more than one page"); 26 return 0; 27} 28 29################################################## 30sub as_string { 31################################################## 32 my($self) = @_; 33 34 return $self->SUPER::list_as_string($self->properties); 35} 36 371; 38