diff options
Diffstat (limited to 'lib/Net/Riak')
-rw-r--r-- | lib/Net/Riak/Client.pm | 5 | ||||
-rw-r--r-- | lib/Net/Riak/Role/REST.pm | 1 | ||||
-rw-r--r-- | lib/Net/Riak/Role/REST/Search.pm | 28 | ||||
-rw-r--r-- | lib/Net/Riak/Search.pm | 15 |
4 files changed, 49 insertions, 0 deletions
diff --git a/lib/Net/Riak/Client.pm b/lib/Net/Riak/Client.pm index f38bec6..ad9315e 100644 --- a/lib/Net/Riak/Client.pm +++ b/lib/Net/Riak/Client.pm @@ -15,6 +15,11 @@ has mapred_prefix => ( isa => 'Str', default => 'mapred' ); +has search_prefix => ( + is => 'rw', + isa => 'Str', + default => 'solr' +); has [qw/r w dw/] => ( is => 'rw', isa => 'Int', diff --git a/lib/Net/Riak/Role/REST.pm b/lib/Net/Riak/Role/REST.pm index dfab5a0..261d573 100644 --- a/lib/Net/Riak/Role/REST.pm +++ b/lib/Net/Riak/Role/REST.pm @@ -12,6 +12,7 @@ with qw/Net::Riak::Role::REST::Bucket Net::Riak::Role::REST::Object Net::Riak::Role::REST::Link Net::Riak::Role::REST::MapReduce + Net::Riak::Role::REST::Search /; has http_request => ( diff --git a/lib/Net/Riak/Role/REST/Search.pm b/lib/Net/Riak/Role/REST/Search.pm new file mode 100644 index 0000000..c75b84b --- /dev/null +++ b/lib/Net/Riak/Role/REST/Search.pm @@ -0,0 +1,28 @@ +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}; + $request = + $self->new_request( 'GET', + [ $self->search_prefix, $params->{index}, "select" ], $params ) if $params->{index}; + + my $http_response = $self->send_request($request); + + return if (!$http_response); + + my $status = $http_response->code; + if ($status == 404) { + return; + } + JSON::decode_json($http_response->content); +}; + + +1; diff --git a/lib/Net/Riak/Search.pm b/lib/Net/Riak/Search.pm new file mode 100644 index 0000000..ac9f059 --- /dev/null +++ b/lib/Net/Riak/Search.pm @@ -0,0 +1,15 @@ +package Net::Riak::Search; + +# ABSTRACT: the riaklink object represents a link from one Riak object to another + +use Moose; + +with 'Net::Riak::Role::Base' => {classes => + [{name => 'client', required => 0},]}; + +sub search { + my ($self, $params) = @_; + $self->client->search($params); +}; + +1; |