GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2025-05-02 20:57:28 +02: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:53:05 -08:00
parent c6f3a9aab4
commit 8c654bb956
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PBot/Utils/LWPUserAgentCached.pm
View File

@ -40,9 +40,11 @@ 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; return HTTP::Response->parse($cached) if defined $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; $self->{cache}->set($uri, $res->as_string) if $res->code eq HTTP::Status::RC_OK;
return $res; return $res;