From bcbf441e09fb502cf64924ff2530fa144bdf52c5 Mon Sep 17 00:00:00 2001
From: Andreas Brachold <vdr07@deltab.de>
Date: Mon, 13 Aug 2007 18:41:27 +0000
Subject: * Move files to trunk

---
 lib/Net/Amazon/Response/TextStream.pm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 lib/Net/Amazon/Response/TextStream.pm

(limited to 'lib/Net/Amazon/Response/TextStream.pm')

diff --git a/lib/Net/Amazon/Response/TextStream.pm b/lib/Net/Amazon/Response/TextStream.pm
new file mode 100644
index 0000000..0cee872
--- /dev/null
+++ b/lib/Net/Amazon/Response/TextStream.pm
@@ -0,0 +1,28 @@
+######################################################################
+package Net::Amazon::Response::TextStream;
+######################################################################
+use warnings;
+use strict;
+use base qw(Net::Amazon::Response);
+
+use Net::Amazon::Property;
+
+##################################################
+sub new {
+##################################################
+    my($class, %options) = @_;
+
+    my $self = $class->SUPER::new(%options);
+
+    bless $self, $class;   # reconsecrate
+}
+
+##################################################
+sub as_string {
+##################################################
+    my($self) = @_;
+
+    return $self->SUPER::list_as_string($self->properties);
+}
+
+1;
-- 
cgit v1.2.3