diff options
Diffstat (limited to 'lib/Net/Riak/Role/REST/Search.pm')
| -rw-r--r-- | lib/Net/Riak/Role/REST/Search.pm | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/lib/Net/Riak/Role/REST/Search.pm b/lib/Net/Riak/Role/REST/Search.pm index b83e3d4..f813578 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,30 @@ sub setup_indexing { JSON::decode_json($http_response->content); } +sub index { + my ($self, $bucket,$index,$first, $last) = @_; + + my $request; + my @req = (); + + my $org_prefix = $self->prefix; + if ( defined($bucket) && defined($index) && defined($first) ) + { + @req = ( + 'buckets', + $bucket, + 'index', + $index, + $first + ); + + if ( defined($last) ) { push(@req, $last); } + } + + $request = $self->new_request('GET', [ @req ] ); + + my $http_response = $self->send_request($request); + JSON::decode_json($http_response->content)->{keys}; +} + 1; |