diff options
| author | gmaurice <germain.maurice@linkfluence.net> | 2011-06-25 20:52:38 +0200 |
|---|---|---|
| committer | gmaurice <germain.maurice@linkfluence.net> | 2011-06-25 20:52:38 +0200 |
| commit | 4fe4d90d96b77a2265be5f808f9ed0c2612d28d1 (patch) | |
| tree | 626aa1cef28ffb7f6d3825568a110e3c130fe989 /lib | |
| parent | add basic support of riaksearch (need to see what is missed) (diff) | |
| download | net-riak-4fe4d90d96b77a2265be5f808f9ed0c2612d28d1.tar.gz | |
remove index param from being added to query params
Diffstat (limited to '')
| -rw-r--r-- | lib/Net/Riak/Role/REST/Search.pm | 13 |
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); }; |