my $self = shift;
my $ua;
- $ua = LWP::UserAgent->new('agent' => 'Mozilla/5.0', 'cookie_jar' => HTTP::Cookies->new);
+ $ua = LWP::UserAgent->new(
+ 'agent' => 'Mozilla/5.0',
+ 'cookie_jar' => HTTP::Cookies->new,
+ 'timeout' => 15,
+ );
# Remove a currently defined HTTPS proxy. See below for a longer explanation.
delete($ENV{'HTTPS_PROXY'});
}
}
+ $self->{_CACHED_UA} = $ua;
+
return $ua;
}
+sub _cached_ua {
+ my $self = shift;
+
+ return $self->{_CACHED_UA};
+}
+
sub simple_get {
my $self = shift;
my $url = shift;