4

我在带有 DBIx::Class 的 mod_perl 上使用 CGI::Application，我希望在实例化时定义一个新的 dbic 模式。到目前为止，我还无法让它工作。我最接近的是一个超类，它有一个 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);
4

2 回答 2

1

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

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

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

my $_schema;

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

    return $_schema = ACD::Model->connect(...);
}
于 2009-10-06T00:02:18.503 回答
0

我没有一个答案，但http://lists.scsys.co.uk/pipermail/dbix-class/2006-June/001690.html可能值得一读，因此您了解 DBIC 如何管理连接。

于 2009-05-07T08:14:39.997 回答