Fix ws

1 files changed, 23 insertions, 24 deletions

diff --git a/lib/Net/Riak/Role/REST/Search.pm b/lib/Net/Riak/Role/REST/Search.pm
index f813578..7cf3da3 100644
--- a/lib/Net/Riak/Role/REST/Search.pm
+++ b/lib/Net/Riak/Role/REST/Search.pm
@@ -1,7 +1,6 @@
 package Net::Riak::Role::REST::Search;
 use Moose::Role;
 use JSON;
-use Data::Dumper;
 
 #ABSTRACT: Search interface
 
@@ -75,29 +74,29 @@ sub setup_indexing {
 }
 
 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};
+    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;