代码之家 › 专栏 › 技术社区 › Carl

在DBIx::类中注入关系

dbix-class perl

Carl · 技术社区 · 14 年前

对于其中一些模型(具有“queue”列的模型),我有另一个类injectsubs(基本上是沿着模型对象的队列状态“移动”模型对象)。

我还想上那个班 has_many 关系ala

class($name)->has_many('queue_history','MySchema::Result::QueueHistory',
 { 'foreign.record_id'=>'self.id' },
 { where => { type => $name }} );

1 回复 | 直到 14 年前

Carl 14 年前

经过一番挖掘,以下工作:

$class = $schema->class($name)->has_many('queue_history','MySchema::Result::QueueHistory',
 { 'foreign.record_id'=>'self.id' },
 { where => { type => $name }} );

$schema->unregister_source($name);
$schema->register_class($name,$class);

密钥是unregister/register方法,以便生成通过拥有新的 has_many 关系。

推荐文章

Manny · 如何比较Perl中的字符串?

2 年前

BioRod · 我不能用Perl打印键和值

2 年前

user17227456 · Perl CLI代码无法追加字符串行

2 年前

LearnToBeBetter · 读取文件,搜索字符串,打印字符串

2 年前

KJ7LNW · 一些波斯语文本的宽字符印刷,但其他文本则没有

2 年前

Amit M · 如何用FFI:Platypus替换cpan Perl实用程序P5NCI

2 年前

con · 如何搜索大型数据结构并返回一系列给出特定值的键/数组?

2 年前

rohithguptha potti · 在LINUX操作系统上执行一些Perl命令时,这些模块可以在LINUX中使用,也可以不在LINUX中使用

2 年前

Tonys AnsonÄ« Misirgis · 当“网站”选项卡关闭时,服务器如何知道关闭websocket的连接

6 年前

Pranay Nanda · 使用regex解析许可证文件

6 年前