perl - 如何使用 mod_perl 在 CGI::Application 中拥有持久的 DBIx::Class？

Question

我在带有 DBIx::Class 的 mod_perl 上使用 CGI::Application，我希望在实例化时定义一个新的 dbic 模式。到目前为止，我还无法让它工作。我最接近的是一个父类(super class)，它有一个 connect() 方法，它返回一个新对象，但我宁愿它已经被连接和实例化。

我真的很感激任何想法。

谢谢!

备注 : 好吧，显然还没有帮助，但是，与此同时，我创建了一个懒惰地实例化 DBIx::Class 的访问器，这样可能会好一些。核实:

sub schema {
    my $self = shift;
    unless ($self->{schema}) {
        $self->{schema} = ACD::Model->connect(@{$self->cfg->{$ENV{MODE}}->{connect_params}});
    }
    return $self->{schema};
}

然后当然要使用它，您可以执行以下操作:

$self->schema->resultset('Foo')->find(1234);

Answer 1

当然，您不能将数据库连接序列化为 session 文件或其他任何内容，也不能在 apache fork 之前创建它，但您可以让每个子进程保持一个事件状态。

提前创建它的一个选项是在您的基本 mod_perl 处理程序子中进行，但由于客户端连接已经在此时开始，它不会为您带来任何响应时间改进。

所以我会像你上面那样做一个懒惰的实现，而不是在 $self 中缓存模式对象。 ，将其缓存在包级别的私有(private)变量中，这意味着每个 apache 子进程都只有一个模式连接:

my $_schema;

sub schema {
    return $_schema
        if $_schema; # actually, you should check the db connection is live

    return $_schema = ACD::Model->connect(...);
}