From 4285b5afee9e88d39f46a77b8b1ef296b2a77ace Mon Sep 17 00:00:00 2001
From: Robin Edwards <robin.ge@gmail.com>
Date: Tue, 9 Nov 2010 09:49:09 +0000
Subject: added expected status message

---
 lib/Net/Riak/Object.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/Net/Riak/Object.pm b/lib/Net/Riak/Object.pm
index 25275c5..714776c 100644
--- a/lib/Net/Riak/Object.pm
+++ b/lib/Net/Riak/Object.pm
@@ -143,9 +143,10 @@ sub populate {
     $self->data($http_response->content);
 
     if (!grep { $status == $_ } @$expected) {
-        croak "Expected status "
+        confess "Expected status "
           . (join(', ', @$expected))
-          . ", received $status";
+          . ", received: \n"
+          . $http_response->as_string; 
     }
 
     if ($status == 404) {
-- 
cgit v1.2.3