递归遍历DBIx :: Class关系

Question

获取DBIx :: Class子类foo的直接和间接外键依赖关系的表列表的最快方法是什么？我有一个基于DBIx :: Class :: Schema的MySQL数据库。可以直接使用DBIx :: Class，还是可以通过生成有向图来帮助SQL :: Translator？

鉴于以下类别：

package MySchema::Foo;

...

package MySchema::Bar;

__PACKAGE__->belongs_to('foo', 'MySchema::Foo');

package MySchema::Baz;

__PACKAGE__->belongs_to('bar', 'MySchema::Bar');

对于输入Foo，输出应为[Bar，Baz]。

Answer 1

使用DBIx::Class的{​​{1}}和::Schema制作此内容。首先构建引用类的哈希（ref），然后遍历它：

::ResultSource