如何从 DBIC::Schema 创建 Catalyst::Model::DBIC::Schema？

Question

完全缺乏文档使这变得困难..

基本上，我有

package MyApp::Schema;
sub new_schema {
   __PACKAGE__->connect(...)
}

那我有

package MyCatApp::Model::MyApp;
use Moose;
extends 'Catalyst::Model::DBIC::Schema';

## what here;

_PACKAGE__->make_immutable;

我该如何进行这项工作？如果我的配置中有这个...

<Model::MyApp>
        schema_class   MyApp::Schema
        traits Caching
        user_defined_schema_accessor foo
</Model::MyApp>

我收到following error：

BEGIN 失败--编译在 MyCatapp.psgi 第 4 行第 1 行中止。 加载 MyCatapp.psgi 时出错：无法实例化组件“必须为 MyCatApp::Model::MyApp 或 MyApp::Schema 定义任何 ->config->{connect_info} 必须在其上定义连接信息。

但是在MyApp::Schema 中添加sub connect_info {} 不会改变任何东西。该错误是在line 480 of this file 上生成的。

该方法似乎正在查看$schema_class->storage->connect_info，我认为它是实例化对象上的方法，而不是包中的函数。但是，如果我尝试设置

__PACKAGE__->config('schema_class', MyApp::Schema->new_schema)

然后我得到...

加载时出错：无法实例化组件“MyCatApp::Model::MyApp”，“属性（schema_class）未通过类型约束，因为：'Catalyst::Model::DBIC::Schema: 验证失败： :Types::SchemaClass' 值 MyApp::Schema=HASH(0xb4a5ff0) 在 /usr/local/lib/perl/5.18.2/Moose/Exception.pm 第 37 行

那么，我该怎么做呢……

Answer 1

所以..我不确定这是否正确，所以我不会将其标记为已接受，但我非常接近..这条线已经死了..

__PACKAGE__->config('schema_class', MyApp::Schema->new_schema)

根据上面line 480 of Catalyst::Model::DBIC::Schema 上的链接，代码已经到位，可以正常工作。但是，类型不对。。

type of schema_class is SchemaClass。还有，SchemaClass is defined here

subtype SchemaClass,
    as LoadableClass,
    where { $_->isa('DBIx::Class::Schema') };

现在，SchemaClass 是 MooseX::Types::LoadableClass 的子类型，它基本上只需要一个包名并需要它..

问题是 LoadableClass 不采用 DBIC::Schema 的实例。无论如何..我也只是改变了它..

has schema_class => (
    is => 'ro',
    isa => 'Object',
    required => 1
);

现在我可以将实例化的模式填充到 schema_class 并传递条件 if($schema_class->storage && $schema_class->storage->connect_info)。

我提交了bug on this here

Answer 2

您可以在 MyApp::Schema 中实例化连接信息：

__PACKAGE__->connection(@your_connection_details);

这将在类本身上设置一个存储，而不是模式对象。这将通过Catalyst::Model::DBIC::Schema 检查并成功运行。我认为这可以在不更改底层类的情况下实现您的目标（尽管可能取决于未包含的细节）。

Answer 3

根据您referenced 的文档，您的MyCatApp::Model::MyApp 看起来像这样：

__PACKAGE__->config(
  schema_class => 'MyApp::Schema',
  connect_info => {
    dsn => 'dbi:Pg:dbname=mypgdb',
    user => 'postgres',
    password => '',
    pg_enable_utf8 => 1,
    on_connect_do => [
      'some SQL statement',
      'another SQL statement',
    ],
  }
);

在你的控制器中，你会：

my $db = $c->model('MyApp');