DBIx::RetryConnection to add DBI connection retry logic

gistfile1.txt

Typical usage:

 use DBIx::RetryConnection qw(Pg); 

or:

 use DBIx::RetryConnection Pg => { ... }; # options for Type::Tiny::Retry


DBI->connect('dbi:Pg:...', $user, $pass, { private_dbix_retry_connection_delay_exp => [...] });

The monkey patching:

use Try::Tiny::Retry;

my $orig_dbd_pg_dr_connect = \&DBD::Pg::dr::connect;
*DBD::Pg::dr::connect = sub {
    my ($drh, $dsn, $user, $pass, $attr) = @_;
    return retry {
        $orig_dbd_pg_dr_connect->($drh, $dsn, $user, $pass, $attr)
            or die $dbh->errstr;
    }
    delay_exp { @{ $attr->{private_dbix_retry_connection_delay_exp} || [ 10, 1e5 ] }
    catch { die $_ }
};