summaryrefslogtreecommitdiff
path: root/lib/Net/Riak
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lib/Net/Riak/Role/REST/Search.pm18
1 files changed, 5 insertions, 13 deletions
diff --git a/lib/Net/Riak/Role/REST/Search.pm b/lib/Net/Riak/Role/REST/Search.pm
index 7cf3da3..b6f5d1e 100644
--- a/lib/Net/Riak/Role/REST/Search.pm
+++ b/lib/Net/Riak/Role/REST/Search.pm
@@ -74,26 +74,18 @@ sub setup_indexing {
}
sub index {
- my ($self, $bucket,$index,$first, $last) = @_;
+ 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); }
+ if (defined $bucket && defined $index && defined $first) {
+ @req = ('buckets', $bucket, 'index', $index, $first);
+ push(@req, $last) if (defined $last);
}
- $request = $self->new_request('GET', [ @req ] );
+ $request = $self->new_request('GET', [ @req ]);
my $http_response = $self->send_request($request);
JSON::decode_json($http_response->content)->{keys};