blob: 4c6cb1f07ffc072e7ff2cd42a7e85545586b72d4 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
package Net::Riak::Role::UserAgent;
# ABSTRACT: useragent for Net::Riak
use Moose::Role;
use LWP::UserAgent;
has useragent => (
is => 'rw',
isa => 'LWP::UserAgent',
lazy => 1,
default => sub {
my $self = shift;
my $ua = LWP::UserAgent->new;
$ua->timeout(3);
$ua;
}
);
1;
|