diff options
author | Mainframe2008 <thg.bot@gmail.com> | 2013-02-01 12:44:18 +0100 |
---|---|---|
committer | Mainframe2008 <thg.bot@gmail.com> | 2013-02-01 12:44:18 +0100 |
commit | 0425b9a802b54d223c616c678f3af326cc6adf1c (patch) | |
tree | 9568633b1ab26be1d91250bbede15e1b9510bd77 /lib/Net/Riak | |
parent | Update lib/Net/Riak/Role/UserAgent.pm (diff) | |
download | net-riak-0425b9a802b54d223c616c678f3af326cc6adf1c.tar.gz |
Added comments for searching using secondary indexes
Diffstat (limited to 'lib/Net/Riak')
-rw-r--r-- | lib/Net/Riak/Role/REST/Search.pm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/lib/Net/Riak/Role/REST/Search.pm b/lib/Net/Riak/Role/REST/Search.pm index b83e3d4..7e74af5 100644 --- a/lib/Net/Riak/Role/REST/Search.pm +++ b/lib/Net/Riak/Role/REST/Search.pm @@ -1,6 +1,7 @@ package Net::Riak::Role::REST::Search; use Moose::Role; use JSON; +use Data::Dumper; #ABSTRACT: Search interface @@ -73,4 +74,24 @@ sub setup_indexing { JSON::decode_json($http_response->content); } +sub i2search { + my $self = shift; + my %params = @_; + my $request; + + my $org_prefix = $self->prefix; + + $request = $self->new_request('GET', [ + 'buckets', + $params{bucket}, + 'index', + $params{index}, + $params{key} + ] + ); + + my $http_response = $self->send_request($request); + JSON::decode_json($http_response->content)->{keys}; +} + 1; |