From 79bea382fd2c0753ca9ace79a11bb74c9a1d722b Mon Sep 17 00:00:00 2001
From: Robin Edwards <robin.ge@gmail.com>
Date: Wed, 20 Apr 2011 14:38:43 +0100
Subject: merged pbc branch to master

---
 lib/Net/Riak/Client.pm | 34 +---------------------------------
 1 file changed, 1 insertion(+), 33 deletions(-)

(limited to 'lib/Net/Riak/Client.pm')

diff --git a/lib/Net/Riak/Client.pm b/lib/Net/Riak/Client.pm
index 4d14338..f38bec6 100644
--- a/lib/Net/Riak/Client.pm
+++ b/lib/Net/Riak/Client.pm
@@ -2,10 +2,8 @@ package Net::Riak::Client;
 
 use Moose;
 use MIME::Base64;
-use Moose::Util::TypeConstraints;
 
-class_type 'HTTP::Request';
-class_type 'HTTP::Response';
+with 'MooseX::Traits';
 
 has prefix => (
     is      => 'rw',
@@ -27,40 +25,10 @@ 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']
-);
-
-has ua_timeout => (
-    is  => 'rw',
-    isa => 'Int',
-    default => 3
-);
-
-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)), '');
 }
 
-sub is_alive {
-    my $self     = shift;
-    my $request  = $self->new_request('GET', ['ping']);
-    my $response = $self->send_request($request);
-    $self->is_success ? return 1 : return 0;
-}
 
 1;
-- 
cgit v1.2.3