summaryrefslogtreecommitdiff
path: root/lib/Net/Riak/Role
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2011-07-07 13:24:37 +0200
committerfranck cuny <franck@lumberjaph.net>2011-07-07 13:24:37 +0200
commit99ea7825711a11b7fe7978838bca5880ba2e6231 (patch)
tree119cc0b0d866f29857a7e04bd06ac29b607cb7c4 /lib/Net/Riak/Role
parentMerge pull request #13 from gmaurice/master (diff)
parentremoved more white spaces (diff)
downloadnet-riak-99ea7825711a11b7fe7978838bca5880ba2e6231.tar.gz
Merge branch 'review/gmaurice'
* review/gmaurice: removed more white spaces perltidy + whitespaces removed remove white spaces documentation added for search
Diffstat (limited to 'lib/Net/Riak/Role')
-rw-r--r--lib/Net/Riak/Role/REST/Search.pm18
1 files changed, 10 insertions, 8 deletions
diff --git a/lib/Net/Riak/Role/REST/Search.pm b/lib/Net/Riak/Role/REST/Search.pm
index 642964b..b83e3d4 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 = @_;
@@ -16,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);
@@ -32,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 ] );
@@ -56,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;