diff options
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; |