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