summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/Net/Riak/Role/PBC.pm8
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/Net/Riak/Role/PBC.pm b/lib/Net/Riak/Role/PBC.pm
index 605f032..bc32e3b 100644
--- a/lib/Net/Riak/Role/PBC.pm
+++ b/lib/Net/Riak/Role/PBC.pm
@@ -37,6 +37,12 @@ has socket => (
predicate => 'has_socket',
);
+has timeout => (
+ is => 'ro',
+ isa => Int,
+ default => 30,
+);
+
sub is_alive {
my $self = shift;
return $self->send_message('PingReq');
@@ -56,7 +62,7 @@ sub connect {
PeerAddr => $self->host,
PeerPort => $self->port,
Proto => 'tcp',
- Timeout => 30,
+ Timeout => $self->timeout,
)
);
}