diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-11-02 15:32:45 +0100 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-11-02 15:32:45 +0100 |
| commit | 5573fc78e8b093cea69578d715634259815a5c07 (patch) | |
| tree | d0e91eade3880c426e78ebd7d20f9fab5a219ba9 /lib/Net/Riak/Client.pm | |
| parent | pulling the =build me a link= logic in to a single method and then wrapping t... (diff) | |
| parent | Merge branch 'master' of github.com:robinedwards/net-riak (diff) | |
| download | net-riak-5573fc78e8b093cea69578d715634259815a5c07.tar.gz | |
resolved merge conflict
Diffstat (limited to '')
| -rw-r--r-- | lib/Net/Riak/Client.pm | 32 |
1 files changed, 24 insertions, 8 deletions
diff --git a/lib/Net/Riak/Client.pm b/lib/Net/Riak/Client.pm index 19d172f..e76a0ef 100644 --- a/lib/Net/Riak/Client.pm +++ b/lib/Net/Riak/Client.pm @@ -2,12 +2,10 @@ package Net::Riak::Client; use Moose; use MIME::Base64; +use Moose::Util::TypeConstraints; -with qw/ - Net::Riak::Role::REST - Net::Riak::Role::UserAgent - Net::Riak::Role::Hosts - /; +class_type 'HTTP::Request'; +class_type 'HTTP::Response'; has prefix => ( is => 'rw', @@ -29,6 +27,24 @@ has client_id => ( isa => 'Str', lazy_build => 1, ); +has http_request => ( + is => 'rw', + isa => 'HTTP::Request', +); + +has http_response => ( + is => 'rw', + isa => 'HTTP::Response', + handles => ['is_success'] +); + +with 'Net::Riak::Role::UserAgent'; +with qw/ + Net::Riak::Role::REST + Net::Riak::Role::Hosts + /; + + sub _build_client_id { "perl_net_riak" . encode_base64(int(rand(10737411824)), ''); @@ -36,9 +52,9 @@ sub _build_client_id { 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; + my $request = $self->new_request('GET', ['ping']); + my $response = $self->send_request($request); + $self->is_success ? return 1 : return 0; } 1; |