Стойкие соединения с базой данных с Catalyst

Question

В моей организации есть собственный пакет для подключения к нашим серверам баз данных, который заботится о том, чтобы произвольно использовать различные зеркала (в соответствии с конфигурационным файлом) и только пытается использовать мастер-сервер базы данных для не-readonly соединений или если ни одно из зеркал не может быть достигнуто. Я хочу использовать это и использовать его для постоянных подключений в приложении Catalyst.

Что я пытался создать пакет модели на основе Catalyst :: Model :: DBI, но это переопределяет метод connect() этого модуля, чтобы использовать метод соединения нашего пакета. Затем я переопределил методы «selectall_arrayref», «do», которые используют stay_connected() ... Он работает нормально, но он создает новое соединение для каждого запроса - даже во время одного и того же запроса http - хотя документация для Catalyst :: Model :: DBI, похоже, подразумевает, что соединение должно быть постоянным.

Так что мой вопрос: что ДОЛЖНО происходить? Нужно ли мне делать что-то другое, чтобы получить постоянный дескриптор? может ли Model :: DBI обеспечить это? если да, то как мне перевести эту вещь в нашу, или есть более простой способ? Я не хочу переписывать весь наш пакет для использования DBIx :: Class, я просто хочу подключить нашу процедуру, которая дает мне дескриптор базы данных, который подходит для нашей системы.

package SpamControl::Model::Database; 
use strict; 
use Freecycle::Database; 

use base 'Catalyst::Model::DBI'; 

# redefine the connect method, this is just copied from Model::DBI but using the Freecycle package for the actual connection. 
sub connect { 
    my $self = shift; 
    my $dbh; 
    # TODO: I wish this could be a persistent connection. 
    eval { 
      $dbh = Freecycle::Database::connect({ username => 'member', read_only => 1 }); 
    }; 
    if ($@) { $self->{log}->debug(qq{Couldn't connect to the database "$@"}) if $self->{debug} } 
    else { $self->{log}->debug ('Connected to the database') if $self->{debug}; } 
    $self->_pid($$); 
    $self->_tid(threads->tid) if $INC{'threads.pm'}; 
    return $dbh; 
} 

# for read/write connections 
sub dbh_admin { 
    my ($self,$c) = @_; 
    my $dbh = Freecycle::Database::connect({ username => 'admin', read_only => 0 }); 
    return $dbh; 
} 

sub do { 
    my $self = shift; 
    return $self->dbh_admin->do(@_); 
} 

sub selectall_hashref { 
    my $self = shift; 
    return $self->stay_connected->selectall_hashref(@_); 
} 

...etc etc. 

Answer 1

Catalyst::Model::DBI обеспечивает постоянные соединения и автоматические повторные соединения (через DBIx::Connector в настоящее время).

Если у вас есть модуль, который уже делает это (Freecycle::Database?) Вы не должны использовать Catalyst::Model::DBI вообще, а использовать модуль в качестве модели Catalyst, для которых Catalyst::Model::Adaptor может помочь много.