mirror of
https://github.com/pragma-/pbot.git
synced 2024-12-24 03:33:06 +01:00
Util/LWPUserAgentCached: minor style clean-up
This commit is contained in:
parent
9d3392ecae
commit
c6f3a9aab4
@ -39,22 +39,12 @@ sub new {
|
||||
sub request {
|
||||
my ($self, @args) = @_;
|
||||
my $request = $args[0];
|
||||
|
||||
return $self->SUPER::request(@args) if $request->method ne 'GET';
|
||||
|
||||
my $uri = $request->uri->as_string;
|
||||
my $cached = $self->{cache}->get($uri);
|
||||
|
||||
if (defined $cached) {
|
||||
return HTTP::Response->parse($cached);
|
||||
}
|
||||
|
||||
return HTTP::Response->parse($cached) if defined $cached;
|
||||
my $res = $self->SUPER::request(@args);
|
||||
|
||||
if ($res->code eq HTTP::Status::RC_OK) {
|
||||
$self->{cache}->set($uri, $res->as_string);
|
||||
}
|
||||
|
||||
$self->{cache}->set($uri, $res->as_string) if $res->code eq HTTP::Status::RC_OK;
|
||||
return $res;
|
||||
}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user