如何用DBIx::Class语法定义跨表关联的一对一关系？

需求 #

在DBIx::Class中为Thing表定义以下关联：

• Thing与Sprocket为一对一关联
• Thing与Cog的关联需同时使用Thing的thingWidth和关联Sprocket的sprocketLength作为匹配条件

已能写出目标SQL，但定义Thing到Cog的has_one关联时，无法正确指定sprocketLength的匹配条件；尝试用coderef定义条件时出现self_result_object未定义错误，且预取关联场景无法正常工作，需正确的关联定义语法。

表结构 #

-- thing表
thingID
sprocketID
thingWidth
-- 其他字段省略

-- sprocket表
sprocketID
sprocketLength
-- 其他字段省略

-- cog表
sprocketLength
thingWidth
cogPartNum

目标SQL #

SELECT * FROM thing
    JOIN sprocket ON thing.sprocketID = sprocket.sprocketID
    JOIN cog ON sprocket.sprocketLength = cog.sprocketLength AND thing.thingWidth = cog.thingWidth
    WHERE thing.thingID = ?;

现有尝试代码 #

初始尝试（无法指定sprocketLength条件） #

My::Schema::Thing->has_one('sprocket' => 'My::Schema::Sprocket', 'sprocketID');
My::Schema::Thing->has_one('cog' => 'My::Schema::Cog', {
    'foreign.thingWidth' => 'self.thingWidth',
    'foreign.sprocketLength' => *??????       # 此处困惑，因sprocketLength不在self表中
});

Coderef尝试（出现self_result_object未定义错误） #

My::Schema::Thing->has_one('cog' => 'My::Schema::Cog', sub {
    my $args = shift;
    return {
        "$args->{foreign_alias}.thingWidth" => { -ident => "$args->{self_alias}.thingWidth" },
        "$args->{foreign_alias}.sprocketLength" => $self->{self_result_object}->sprocket->sprocketLength,
    };
});

更新后代码（仍不支持预取） #

sub {
    my $args = shift;
 
    return (
        {
            "$args->{foreign_alias}.thingWidth" => { -ident => "$args->{self_alias}.thingWidth" },
            "$args->{foreign_alias}.sprocketLength" => $self->{self_result_object}->sprocket->sprocketLength,   # 此处出错
        },
        ! $args->{self_result_object} ? () : {
            "$args->{foreign_alias}.thingWidth" => $args->{self_result_object}->thingWidth,
            "$args->{foreign_alias}.sprocketLength" => $args->{self_result_object}->sprocketLength,
        },
        (),
    );
}

解决方案 #

正确的关联定义需要区分单个对象访问和预取关联两种场景，通过coderef动态生成条件，并在预取时自动关联Sprocket表：

My::Schema::Thing->has_one('sprocket' => 'My::Schema::Sprocket', 'sprocketID');

My::Schema::Thing->has_one('cog' => 'My::Schema::Cog', sub {
    my $args = shift;
    my $self_alias = $args->{self_alias};
    my $foreign_alias = $args->{foreign_alias};
    my $sprocket_alias = 'me_sprocket'; # 预取时使用的sprocket表别名

    # 基础条件：匹配thingWidth
    my $conditions = {
        "$foreign_alias.thingWidth" => { -ident => "$self_alias.thingWidth" },
    };

    if ($args->{self_result_object}) {
        # 单个Thing对象访问时，直接使用已加载的sprocket的sprocketLength
        $conditions->{"$foreign_alias.sprocketLength"} = $args->{self_result_object}->sprocket->sprocketLength;
        return $conditions;
    } else {
        # 预取关联时，需要JOIN sprocket表，用其sprocketLength关联Cog
        $conditions->{"$foreign_alias.sprocketLength"} = { -ident => "$sprocket_alias.sprocketLength" };
        # 返回额外的JOIN配置，让DBIx::Class自动关联sprocket表
        return (
            $conditions,
            { join => [ { sprocket => $sprocket_alias } ] },
        );
    }
});

逻辑说明 #

1. 单个对象访问：当从已加载的Thing实例获取cog时，直接使用该实例已关联的sprocket对象的sprocketLength值作为匹配条件。
2. 预取关联：当使用prefetch加载cog时，自动JOIN Sprocket表，通过Sprocket的sprocketLength字段与Cog关联，生成的SQL与目标SQL一致。

内容的提问来源于stack exchange，提问作者Todd M