diff options
Diffstat (limited to 'lib/Net/Riak.pm')
| -rw-r--r-- | lib/Net/Riak.pm | 12 |
1 files changed, 11 insertions, 1 deletions
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 |