From 08cf0c72671e94086352b03683e1ad57348bee1f Mon Sep 17 00:00:00 2001 From: gmaurice Date: Thu, 7 Jul 2011 13:19:06 +0200 Subject: documentation added for search --- lib/Net/Riak/Role/REST/Search.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lib/Net/Riak/Role/REST/Search.pm') diff --git a/lib/Net/Riak/Role/REST/Search.pm b/lib/Net/Riak/Role/REST/Search.pm index 642964b..6748b20 100644 --- a/lib/Net/Riak/Role/REST/Search.pm +++ b/lib/Net/Riak/Role/REST/Search.pm @@ -2,6 +2,8 @@ package Net::Riak::Role::REST::Search; use Moose::Role; use JSON; +#ABSTRACT: Search interface + sub search { my $self = shift; my %params = @_; @@ -71,4 +73,4 @@ sub setup_indexing { JSON::decode_json($http_response->content); } -1; +1; \ No newline at end of file -- cgit v1.2.3 From 61ec75a67b45b696c8e078c89f44139117e8360f Mon Sep 17 00:00:00 2001 From: franck cuny Date: Thu, 7 Jul 2011 13:24:24 +0200 Subject: removed more white spaces Signed-off-by: franck cuny --- lib/Net/Riak/Role/REST/Search.pm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'lib/Net/Riak/Role/REST/Search.pm') diff --git a/lib/Net/Riak/Role/REST/Search.pm b/lib/Net/Riak/Role/REST/Search.pm index 6748b20..b83e3d4 100644 --- a/lib/Net/Riak/Role/REST/Search.pm +++ b/lib/Net/Riak/Role/REST/Search.pm @@ -18,7 +18,7 @@ sub search { $self->new_request( 'GET', [ $self->search_prefix, $index, "select" ], \%params ); } - + my $http_response = $self->send_request($request); return if (!$http_response); @@ -34,23 +34,23 @@ sub search { sub setup_indexing { my ( $self, $bucket ) = @_; - my $request = + my $request = $self->new_request( 'GET', [ $self->prefix, $bucket ] ); my $http_response = $self->send_request($request); - + return if (!$http_response); my $status = $http_response->code; if ($status == 404) { return; } - + my $precommits = JSON::decode_json($http_response->content)->{props}->{precommit}; for (@$precommits){ return JSON::decode_json($http_response->content) if $_->{mod} eq "riak_search_kv_hook"; - } + } push ( @$precommits, { mod => "riak_search_kv_hook" , fun => "precommit" } ); $request = $self->new_request( 'PUT', [ $self->prefix, $bucket ] ); @@ -58,19 +58,19 @@ sub setup_indexing { $request->header('Content-Type' => "application/json" ); $http_response = $self->send_request($request); - + return if (!$http_response); $status = $http_response->code; if ($status == 404) { return; } - $request = + $request = $self->new_request( 'GET', [ $self->prefix, $bucket ] ); $http_response = $self->send_request($request); JSON::decode_json($http_response->content); -} +} -1; \ No newline at end of file +1; -- cgit v1.2.3