diff options
author | franck cuny <franck@lumberjaph.net> | 2010-06-14 17:52:56 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-06-14 17:52:56 +0200 |
commit | bd6e142d9e042385051e7b8ac62d39f85aa39f5d (patch) | |
tree | 07733892bf8443b2d38ba02dae501104c4d32185 /lib | |
parent | update change and version (diff) | |
download | net-riak-bd6e142d9e042385051e7b8ac62d39f85aa39f5d.tar.gz |
is_alive moved to client
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Net/Riak.pm | 9 | ||||
-rw-r--r-- | lib/Net/Riak/Client.pm | 19 |
2 files changed, 9 insertions, 19 deletions
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; |