lib/Net/Riak/Role/REST/Search.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

package Net::Riak::Role::REST::Search;
use Moose::Role;
use JSON;

sub search {
    my ( $self, $params) = @_;

    my $request;
    $request =
      $self->new_request( 'GET',
        [ $self->search_prefix, "select" ], $params ) unless $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);

    my $status = $http_response->code;
    if ($status == 404) {
        return;
    }
use YAML::Syck;
warn Dump $http_response;
    JSON::decode_json($http_response->content);
};


1;