From 1ae712311b2dbc48a8af751b1f81f9fb3203ed25 Mon Sep 17 00:00:00 2001
From: Robin Edwards <robin.ge@gmail.com>
Date: Tue, 5 Oct 2010 14:25:13 +0100
Subject: requests and responses now stored for debugging

---
 lib/Net/Riak.pm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'lib/Net/Riak.pm')

diff --git a/lib/Net/Riak.pm b/lib/Net/Riak.pm
index ae9319e..77bd773 100644
--- a/lib/Net/Riak.pm
+++ b/lib/Net/Riak.pm
@@ -13,7 +13,7 @@ has client => (
     is       => 'rw',
     isa      => 'Net::Riak::Client',
     required => 1,
-    handles  => [qw/request useragent is_alive/]
+    handles  => [qw/is_alive http_request http_response/]
 );
 
 sub BUILDARGS {
@@ -39,6 +39,8 @@ sub bucket {
     $obj->store;
 
     my $obj = $bucket->get('new_post');
+    my $req = $client->http_request; # last request
+    $client->http_response # last response
 
 =head1 DESCRIPTION
 
@@ -140,6 +142,14 @@ Start assembling a Map/Reduce operation
 
 Start assembling a Map/Reduce operation
 
+=method http_request
+
+Returns the HTTP::Request object from the last request
+
+=method http_response
+
+Returns a HTTP::Response object from the last request
+
 =head2 SEE ALSO
 
 Net::Riak::MapReduce
-- 
cgit v1.2.3