File Coverage

blib/lib/Mojo/DB/Connector/Role/Cache.pm

Criterion	Covered	Total	%
statement	12	24	50.0
branch	0	4	0.0
condition	0	2	0.0
subroutine	4	5	80.0
pod	1	1	100.0
total	17	36	47.2

package Mojo::DB::Connector::Role::Cache;
use Mojo::Base -role;
use List::Util qw(pairs unpairs);
use Mojo::Cache;
use Mojo::Util ();

requires qw(_config _to_url new_connection);

has cache => sub { Mojo::Cache->new };

sub cached_connection {
    my $self     = shift;
    my %config   = $self->_config(@_);
    my $mojo_url = $self->_to_url(%config);

    # sort parameters so cached urls are the same
    $mojo_url->query(
        unpairs
        sort { $a->[0] cmp $b->[0] or $a->[1] cmp $b->[1] }
        pairs @{ $mojo_url->query->pairs }
    );
    my $cache_url = $mojo_url->userinfo(Mojo::Util::sha1_sum($mojo_url->userinfo // ''))->to_unsafe_string;

    my $connection;
    unless ($connection = $self->cache->get($cache_url)) {
        $connection = $self->new_connection(@_);
        $self->cache->set($cache_url => $connection);
    }

    return $connection;
}

1;
__END__