Added comments for searching using secondary indexes

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;