diff options
| author | Robin Edwards <robin.ge@gmail.com> | 2010-11-09 10:01:13 +0000 |
|---|---|---|
| committer | Robin Edwards <robin.ge@gmail.com> | 2010-11-09 10:01:13 +0000 |
| commit | 322d58a5ed9e71b5c9708e53798803c28ad5df62 (patch) | |
| tree | 6c944f73acb868401e127edf9c8438bcbf495e5c /lib/Net/Riak | |
| parent | added expected status message (diff) | |
| download | net-riak-322d58a5ed9e71b5c9708e53798803c28ad5df62.tar.gz | |
added useragent timeout parameter
Diffstat (limited to 'lib/Net/Riak')
| -rw-r--r-- | lib/Net/Riak/Client.pm | 6 | ||||
| -rw-r--r-- | lib/Net/Riak/Role/UserAgent.pm | 4 |
2 files changed, 9 insertions, 1 deletions
diff --git a/lib/Net/Riak/Client.pm b/lib/Net/Riak/Client.pm index dbe3c16..4d14338 100644 --- a/lib/Net/Riak/Client.pm +++ b/lib/Net/Riak/Client.pm @@ -38,6 +38,12 @@ has 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 diff --git a/lib/Net/Riak/Role/UserAgent.pm b/lib/Net/Riak/Role/UserAgent.pm index 123a378..122bf0c 100644 --- a/lib/Net/Riak/Role/UserAgent.pm +++ b/lib/Net/Riak/Role/UserAgent.pm @@ -18,7 +18,9 @@ has useragent => ( $opts{MaxLineLength} = 65_536; @LWP::Protocol::http::EXTRA_SOCK_OPTS = %opts; - my $ua = LWP::UserAgent->new; + my $ua = LWP::UserAgent->new( + timeout => $self->ua_timeout + ); $ua; } ); |