summary refs log tree commit diff
path: root/lib/Net/Riak/Role/REST/Search.pm
diff options
context:
space:
mode:
authorRobin Edwards <robin.ge@gmail.com>2013-03-01 12:59:41 +0000
committerRobin Edwards <robin.ge@gmail.com>2013-03-01 12:59:41 +0000
commitd5807f65b091f270191d7a9b52d81151c24caba5 (patch)
tree626a9db5bfd0709bd4e62d2332a912a69c7b0a5e /lib/Net/Riak/Role/REST/Search.pm
parentFix ws (diff)
downloadnet-riak-d5807f65b091f270191d7a9b52d81151c24caba5.tar.gz
Cleanup
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};