From d5807f65b091f270191d7a9b52d81151c24caba5 Mon Sep 17 00:00:00 2001
From: Robin Edwards <robin.ge@gmail.com>
Date: Fri, 1 Mar 2013 12:59:41 +0000
Subject: Cleanup

---
 lib/Net/Riak/Role/REST/Search.pm | 18 +++++-------------
 1 file changed, 5 insertions(+), 13 deletions(-)

(limited to 'lib/Net/Riak')

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};
-- 
cgit 1.4.1