diff options
Diffstat (limited to 'lib/Net/Riak.pm')
| -rw-r--r-- | lib/Net/Riak.pm | 28 |
1 files changed, 20 insertions, 8 deletions
diff --git a/lib/Net/Riak.pm b/lib/Net/Riak.pm index 5399ff3..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 @@ -100,15 +102,15 @@ client_id for this client =back -=head2 METHODS +=head1 METHODS -=method bucket +=head2 bucket my $bucket = $client->bucket($name); Get the bucket by the specified name. Since buckets always exist, this will always return a L<Net::Riak::Bucket> -=method is_alive +=head2 is_alive if (!$client->is_alive) { ... @@ -116,30 +118,40 @@ Get the bucket by the specified name. Since buckets always exist, this will alwa Check if the Riak server for this client is alive -=method add +=head2 add my $map_reduce = $client->add('bucket_name', 'key'); Start assembling a Map/Reduce operation -=method link +=head2 link my $map_reduce = $client->link(); Start assembling a Map/Reduce operation -=method map +=head2 map my $map_reduce = $client->add('bucket_name', 'key')->map("function ..."); Start assembling a Map/Reduce operation -=method reduce +=head2 reduce my $map_reduce = $client->add(..)->map(..)->reduce("function ..."); 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 + +=cut |