From 9e4c681beae5a7a223cf84d411a12a1ccb3daa6f Mon Sep 17 00:00:00 2001
From: gmaurice <germain.maurice@linkfluence.net>
Date: Wed, 22 Jun 2011 19:27:21 +0200
Subject: add basic support of riaksearch (need to see what is missed)

---
 lib/Net/Riak.pm                  |  2 +-
 lib/Net/Riak/Client.pm           |  5 +++++
 lib/Net/Riak/Role/REST.pm        |  1 +
 lib/Net/Riak/Role/REST/Search.pm | 28 ++++++++++++++++++++++++++++
 lib/Net/Riak/Search.pm           | 15 +++++++++++++++
 5 files changed, 50 insertions(+), 1 deletion(-)
 create mode 100644 lib/Net/Riak/Role/REST/Search.pm
 create mode 100644 lib/Net/Riak/Search.pm

(limited to 'lib')

diff --git a/lib/Net/Riak.pm b/lib/Net/Riak.pm
index 61f73aa..3210007 100644
--- a/lib/Net/Riak.pm
+++ b/lib/Net/Riak.pm
@@ -14,7 +14,7 @@ has client => (
     is       => 'rw',
     isa      => Client_T,
     required => 1,
-    handles  => [qw/is_alive all_buckets server_info stats/]
+    handles  => [qw/is_alive all_buckets server_info stats search/]
 );
 
 sub BUILDARGS {
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;
-- 
cgit 1.4.1