summaryrefslogtreecommitdiff
path: root/lib/Net/Riak
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Net/Riak')
-rw-r--r--lib/Net/Riak/Role/REST/Search.pm13
1 files changed, 9 insertions, 4 deletions
diff --git a/lib/Net/Riak/Role/REST/Search.pm b/lib/Net/Riak/Role/REST/Search.pm
index c75b84b..161acf5 100644
--- a/lib/Net/Riak/Role/REST/Search.pm
+++ b/lib/Net/Riak/Role/REST/Search.pm
@@ -9,10 +9,13 @@ sub search {
$request =
$self->new_request( 'GET',
[ $self->search_prefix, "select" ], $params ) unless $params->{index};
- $request =
- $self->new_request( 'GET',
- [ $self->search_prefix, $params->{index}, "select" ], $params ) if $params->{index};
-
+ if ( $params->{index} ){
+ my $index = delete $params->{index};
+ $request =
+ $self->new_request( 'GET',
+ [ $self->search_prefix, $index, "select" ], $params );
+ }
+
my $http_response = $self->send_request($request);
return if (!$http_response);
@@ -21,6 +24,8 @@ sub search {
if ($status == 404) {
return;
}
+use YAML::Syck;
+warn Dump $http_response;
JSON::decode_json($http_response->content);
};