view release on metacpan or  search on metacpan

debian/changelog  view on Meta::CPAN

libqbit-application-model-db-mysql-perl (0.007) raring; urgency=low

  * Reconnect at mysql err 2013 - Lost connection to mysql server during
    query.

 -- Sergei Svistunov <sergei-svistunov@yandex.ru>  Tue, 17 Mar 2015 12:25:44 +0400

libqbit-application-model-db-mysql-perl (0.006) raring; urgency=low

  * Put mysql_enable_utf8 to initial params to enable utf8 on
    reconnection.

 -- Sergei Svistunov <sergei-svistunov@yandex.ru>  Fri, 13 Mar 2015 19:45:37 +0400

libqbit-application-model-db-mysql-perl (0.005) raring; urgency=low

  * Reconnect to server by default but not in transactions.

 -- Sergei Svistunov <sergei-svistunov@yandex.ru>  Fri, 06 Mar 2015 19:14:28 +0400

lib/QBit/Application/Model/DB/mysql.pm  view on Meta::CPAN

        $self->{'__DBH__'}{$$} = DBI->connect(
            $dsn,
            $self->get_option('user',     ''),
            $self->get_option('password', ''),
            {
                PrintError           => 0,
                RaiseError           => 0,
                AutoCommit           => 1,
                mysql_auto_reconnect => 1,
                mysql_enable_utf8    => 1,
            },
        ) || throw DBI::errstr();
    }
}

sub _is_connection_error {
    my ($self, $code) = @_;

    return in_array($code || 0, [2006, 2013]);
}