更改 DBIx 类结果类的继承树？

Question

G'Day，

我正在使用 DBIx::Class 0.07003 和 DBIx::Class::Schema::Loader 0.03009，我正在尝试将 Loader 生成的类的基类从： 更改

package S2S::DBIxperiment::Productions;

# Created by DBIx::Class::Schema::Loader v0.03009 @ 2011-06-24 14:29:13

use base 'DBIx::Class';

__PACKAGE__->load_components("PK::Auto", "Core");

为类似的内容：

package S2S::DBIxperiment::Productions;

# Created by DBIx::Class::Schema::Loader v0.03009 @ 2011-06-24 14:29:13

use base 'BaseMooseDBI';

__PACKAGE__->load_components("PK::Auto", "Core");

BaseMooseDBI 看起来像：

package BaseMooseDBI;

use Moose;

use base qw(DBIx::Class);

但是，这似乎根本不起作用，而且它似乎没有从 BaseMooseDBI 包继承东西（属性等）我也尝试覆盖 BaseMooseDBI 中的 load_components ，但它永远不会被调用 - 相反，它会错误地找不到 load_components ？

似乎有什么问题？

注意：生成结果类时，我无法使用较新的 use_moose 和 result_base_class。

编辑：找到解决方案。现在了解 DBIx::Class::Schema::Loader 是如何实现的，具有可变和不可变结果类。

Answer 1

如果您只想向父类添加一些方法等，您的代码应该可以工作。您可能需要使用 MooseX::NonMoose，过去我使用父子类 DBIx::Class::Core 而不是 DBIx::Class。这是我成功使用的：

# Parent
package App::Schema::Result;
use Moose;
use MooseX::NonMoose;
use namespace::autoclean;
extends 'DBIx::Class::Core';
sub parent_method { ... }

# Child
package App::Schema::Result::Product;
use Moose;
use MooseX::NonMoose;
use namespace::autoclean;
extends 'Keystone::Schema::Site::Result';
__PACKAGE__->table('products');

sub child_method {
   my ($self) = @_;
   $self->parent_method();
}

如果您希望父类定义DBIx::Class特定信息（即调用__PACKAGE->table，__PACKAGE__->add_columns 等）看看 DBIx::Class::Helper::Row::SubClass。使用它，您可以像普通的 DBIx::Class::Result::* 一样定义父类，并在子类中使用 SubClass 组件并调用 subclass：

# Parent
package App::Schema::Result::Parent;
use Moose;
use MooseX::NonMoose;
extends 'DBIx::Class';
__PACKAGE__->load_components(qw{InflateColumn::DateTime Core});
__PACKAGE__->table('products');
...
# Child
package App::Schema::Result::Child;
use Moose;
use MooseX::NonMoose;
extends 'App::Schema::Result::Parent';
__PACKAGE__->load_components(qw{Helper::Row::SubClass Core});
__PACKAGE__->subclass;
# Now add the child specific stuff / override parent stuff

我不确定您是否可以让 Loader 自动生成部分代码。