From bd6e142d9e042385051e7b8ac62d39f85aa39f5d Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Mon, 14 Jun 2010 17:52:56 +0200
Subject: is_alive moved to client

---
 lib/Net/Riak/Client.pm | 19 ++++++++-----------
 1 file changed, 8 insertions(+), 11 deletions(-)

(limited to 'lib/Net/Riak')

diff --git a/lib/Net/Riak/Client.pm b/lib/Net/Riak/Client.pm
index 21a52e9..fb4ce68 100644
--- a/lib/Net/Riak/Client.pm
+++ b/lib/Net/Riak/Client.pm
@@ -20,17 +20,7 @@ has mapred_prefix => (
     isa     => 'Str',
     default => 'mapred'
 );
-has r => (
-    is      => 'rw',
-    isa     => 'Int',
-    default => 2
-);
-has w => (
-    is      => 'rw',
-    isa     => 'Int',
-    default => 2
-);
-has dw => (
+has [qw/r w dw/] => (
     is      => 'rw',
     isa     => 'Int',
     default => 2
@@ -45,4 +35,11 @@ sub _build_client_id {
     "perl_net_riak" . encode_base64(int(rand(10737411824)), '');
 }
 
+sub is_alive {
+    my $self     = shift;
+    my $request  = $self->request('GET', ['ping']);
+    my $response = $self->useragent->request($request);
+    $response->is_success ? return 1 : return 0;
+}
+
 1;
-- 
cgit v1.2.3