diff options
author | Robin Edwards <robin.ge@gmail.com> | 2010-11-09 09:49:09 +0000 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-11-25 11:00:45 +0100 |
commit | 4285b5afee9e88d39f46a77b8b1ef296b2a77ace (patch) | |
tree | e2127b3e7114d3155bf8c5d6f2d3e9b75d377fd6 /lib/Net/Riak | |
parent | added delete_object method (diff) | |
download | net-riak-4285b5afee9e88d39f46a77b8b1ef296b2a77ace.tar.gz |
added expected status message
Diffstat (limited to 'lib/Net/Riak')
-rw-r--r-- | lib/Net/Riak/Object.pm | 5 |
1 files changed, 3 insertions, 2 deletions
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) { |