如何与 DBIx::Class 创建嵌套的 has_many 或 Belongs_to 关系？

Question

在我的代码中，我有以下三个类： Forum、Forum::Thread 和 Forum::Post

我想要做的是创建一个使用 has_many 从 Forum::Post 类到 Forum 类的 own_to-relationship 关系，反之亦然，最好无需为其创建自定义函数。 （诚​​然，这更多的是一种智力练习，而不是技术限制或实际问题，但如果可能的话，我很想知道。）

注释掉的行包含了我对这些关系的意图，但以目前的形式，它们失败了去工作。我查阅了文档，但找不到与此特定案例相关的任何内容。

有什么指点吗？

论坛类：

package Schema::Result::Forum;

use Moose;
extends qw/DBIx::Class/;

__PACKAGE__->load_components (qw/Core/);
__PACKAGE__->table ('forum');

__PACKAGE__->add_columns (
    id => {
    is_auto_increment => 1,
    data_type         => 'integer',
  },
);

__PACKAGE__->set_primary_key ('id');

__PACKAGE__->has_many (threads => 'Schema::Result::Forum::Thread');
#This is the interesting line
#__PACKAGE__->has_many (posts => 'threads' => 'forums' );

1;

主题类： 帖子

package Schema::Result::Forum::Thread;

use Moose;
extends qw/DBIx::Class/;

__PACKAGE__->load_components (qw/Core/);
__PACKAGE__->table ('forum_thread');
__PACKAGE__->add_columns (
  id => {
    is_auto_increment => 1,
    data_type         => 'integer',
  },
  forum => {
    data_type         => 'integer',
  },
);

__PACKAGE__->set_primary_key ('id');

__PACKAGE__->belongs_to (forum => 'Schema::Result::Forum');
__PACKAGE__->has_many (posts => 'Schema::Result::Forum::Post');

1;

类：

package Schema::Result::Forum::Post;

use Moose;

extends qw/DBIx::Class/;

__PACKAGE__->load_components (qw/Core/);

__PACKAGE__->table ('forum_post');

__PACKAGE__->add_columns (
  id => {
    is_auto_increment => 1,
    data_type         => 'integer',
  },
  thread => {
    data_type         => 'integer',
  },
);

__PACKAGE__->set_primary_key ('id');

__PACKAGE__->belongs_to (thread => 'Schema::Result::Forum::Thread');
#This is the other interesting line
#__PACKAGE__->belongs_to (forum => 'thread' => 'forum');

1;

PS: 为了简洁起见，省略了保存实际内容的其他列。

Answer 1

看起来嵌套关系是不可能的。 has_many 采用单个外部类，该外部类具有调用类的外键。

好消息是 $forum->threads->posts 返回单个 DBIx::Class::Resultset。在需要之前它不会转换为 SQL，因此当您调用 $forum->threads->posts->all() 甚至类似 $forum->search_lated( 'threads',{},{rows=>25})->posts->all()，它只运行单个查询。

如果您的目标是拥有一个 $post->forum，它始终可以是一个方法：sub forum{$_[0]->thread->forum}

Answer 2

您使用什么数据库和引擎类型？如果您没有外键（例如，MySQL 中的 myisam 表），那么您必须在关系语句中提供列名称。