防止 DBIx::Class 调用与新的尚未插入的行相关的所有内容？

Question

我的架构中有父/子关系。我想使用非常相似的代码来修改现有的父级以创建一个新的父级。编辑案例很容易找到孩子：

my $parent = $resultset->find($parent_id);
my @children = $parent->children->all

但是，在新案例中，发生了一些奇怪的事情：

my $parent = $resultset->new_result({});
my @children = $parent->children->all;

我希望@children 为空，但我得到了所有个孩子，不管父母是谁。

我可以这样做（对于每个相关记录访问器，呕吐）：

sub children {
    my $self = shift;

    my $res = $self->next::method(@_);
    my $parent_no = $self->get_column('parent_no');
    defined $parent_no ? $res : $res->search({1 => 2});

}

请告诉我这样做的正确方法，因为上面不能是它。

版本： 0.08010，因为这是 Debian Lenny 所拥有的（以及我们的生产服务器正在运行的）

Answer 1

您使用的是哪个版本的 DBIx::Class？我正在运行最新版本 0.08112，但我似乎找不到 ResultSet 的 new_record 方法。但是，有一个 new_result 方法看起来与您正在使用的 new_record 方法具有相同的效果。我尝试了以下代码并得到了一个空数组，正如预期的那样：

my $parent = $resultset->new_result({});
my @children = $parent->children();

另外，根据documentation for a has_many 关系，创建的访问器方法将返回列表上下文中的对象，因此您不需要调用所有。不过，我确实按照您的方式尝试过，但@children 仍然是空的。