GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2025-02-16 21:40:46 +01:00
Code Issues Projects Releases Wiki Activity

Util/LWPUserAgentCached: minor style clean-up

Browse Source
This commit is contained in:
Pragmatic Software 2020-02-08 20:49:14 -08:00
parent 9d3392ecae
commit c6f3a9aab4
1 changed files with 2 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
PBot/Utils/LWPUserAgentCached.pm
View File

@ -39,22 +39,12 @@ sub new {
sub request { sub request {
my ($self, @args) = @_; my ($self, @args) = @_;
my $request = $args[0]; my $request = $args[0];
return $self->SUPER::request(@args) if $request->method ne 'GET'; return $self->SUPER::request(@args) if $request->method ne 'GET';
my $uri = $request->uri->as_string; my $uri = $request->uri->as_string;
my $cached = $self->{cache}->get($uri); my $cached = $self->{cache}->get($uri);
return HTTP::Response->parse($cached) if defined $cached;
if (defined $cached) {
return HTTP::Response->parse($cached);
}
my $res = $self->SUPER::request(@args); my $res = $self->SUPER::request(@args);
$self->{cache}->set($uri, $res->as_string) if $res->code eq HTTP::Status::RC_OK;
if ($res->code eq HTTP::Status::RC_OK) {
$self->{cache}->set($uri, $res->as_string);
}
return $res; return $res;
} }