diff -ur Amazon.orig/SimpleDB/Response.pm Amazon/SimpleDB/Response.pm
--- Amazon.orig/SimpleDB/Response.pm    2008-10-25 16:33:47.000000000 +0200
+++ Amazon/SimpleDB/Response.pm 2008-10-25 19:18:55.000000000 +0200
@@ -12,9 +12,15 @@
                  'QueryResponse'         => 1,
 );

+use Data::Dump qw/dump/;
 sub new {
     my $class = shift;
-    my $args = shift || {};
+    my $args = {};
+    if (ref($_[0]) eq 'HASH') {
+        $args = shift;
+    } else {
+        $args = +{ @_ };
+    }
     croak "No account" unless $args->{account};
     my $r = $args->{http_response};
     croak 'No HTTP::Response object in http_response'
@@ -41,6 +47,7 @@
     }
     my $self = bless {}, $class;
     $self->{'account'}       = $args->{account};
+    $self->{'domain'}       = $args->{domain} if $args->{domain};
     $self->{'http_response'} = $r;
     $self->{'http_status'}   = $r->code;
     $self->{'content'}       = $tree;