diff options
author | Robin Edwards <robin.ge@gmail.com> | 2011-02-08 16:01:20 +0000 |
---|---|---|
committer | Robin Edwards <robin.ge@gmail.com> | 2011-02-08 16:01:20 +0000 |
commit | 99a81fc32372091a6d6cedb569311dbebe4a91db (patch) | |
tree | c84c3c054981e1a765debaceb44e94176ddfee23 /lib | |
parent | added env for local riak node (diff) | |
download | net-riak-99a81fc32372091a6d6cedb569311dbebe4a91db.tar.gz |
added connection caching
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Net/Riak/Role/UserAgent.pm | 8 |
1 files changed, 8 insertions, 0 deletions
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; } ); |