is_alive moved to client

1 files changed, 8 insertions, 11 deletions

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;