Yet Another CPAN Grep

Mojo-UserAgent-Cached ( N/NI/NICOMEN/Mojo-UserAgent-Cached-1.25.tar.gz, NICOMEN, 2023; MetaCPAN )

Mojo-UserAgent-Cached/lib/Mojo/UserAgent/Cached.pm ( view source; MetaCPAN )

o_match_vars);
use File::Basename;
use File::Path;
use File::Spec;
use List::Util;
use Mojo::JSON qw/to_json/;
use Mojo::Transaction::HTTP;
use Mojo::URL;
use Mojo::Log;
use Mojo::Base 'Mojo::UserAgen

FOUND => 404;

our $VERSION = '1.25';

# TODO: Timeout, fallback
# TODO: Expected result content (json etc)

# MOJO_USERAGENT_CONFIG
## no critic (ProhibitMagicNumbers)
has 'connect_timeout'    => sub


    my ($self, $url, @opts) = @_;

    my $key = join q{,}, $self->sort_query($url), (@opts ? to_json(@opts > 1 ? \@opts : $opts[0]) : ());

    return $key;
}

sub is_considered_error {
    my ($sel