From 99a81fc32372091a6d6cedb569311dbebe4a91db Mon Sep 17 00:00:00 2001
From: Robin Edwards <robin.ge@gmail.com>
Date: Tue, 8 Feb 2011 16:01:20 +0000
Subject: added connection caching

---
 lib/Net/Riak/Role/UserAgent.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'lib/Net/Riak/Role')

diff --git a/lib/Net/Riak/Role/UserAgent.pm b/lib/Net/Riak/Role/UserAgent.pm
index 122bf0c..eaec209 100644
--- a/lib/Net/Riak/Role/UserAgent.pm
+++ b/lib/Net/Riak/Role/UserAgent.pm
@@ -4,6 +4,11 @@ package Net::Riak::Role::UserAgent;
 
 use Moose::Role;
 use LWP::UserAgent;
+use LWP::ConnCache;
+
+our $CONN_CACHE;
+
+sub connection_cache { $CONN_CACHE ||= LWP::ConnCache->new }
 
 has useragent => (
     is      => 'rw',
@@ -21,6 +26,9 @@ has useragent => (
         my $ua = LWP::UserAgent->new(
             timeout => $self->ua_timeout
         );
+
+        $ua->conn_cache(__PACKAGE__->connection_cache);
+
         $ua;
     }
 );
-- 
cgit 1.4.1