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.pm        |  9 +--------
 lib/Net/Riak/Client.pm | 19 ++++++++-----------
 2 files changed, 9 insertions(+), 19 deletions(-)

(limited to 'lib')

diff --git a/lib/Net/Riak.pm b/lib/Net/Riak.pm
index bd76cce..fa54e2e 100644
--- a/lib/Net/Riak.pm
+++ b/lib/Net/Riak.pm
@@ -13,7 +13,7 @@ has client => (
     is       => 'rw',
     isa      => 'Net::Riak::Client',
     required => 1,
-    handles  => [qw/request useragent/]
+    handles  => [qw/request useragent is_alive/]
 );
 
 sub BUILDARGS {
@@ -29,13 +29,6 @@ sub bucket {
     $bucket;
 }
 
-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;
 
 =head1 SYNOPSIS
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 1.4.1