perl – DBIx :: Class has_many连接列的子字符串

我有两个相关的课程

foreign.weirdkey => substr(self.key,1,9)

…并且不能为我的生活弄清楚如何构造has_many调用来表明这一点.

底层数据库(一组Oracle表)定义没有外键,是固定的,并且不受我的控制.

我已经浏览过这些文档,似乎无法找到一个可以在手册has_many定义范围内工作的语法.

任何帮助将非常感激.

解决方法

这样的事情应该有效：

__PACKAGE__->has_many( baubles => 'My::Schema::Result::Thing',sub {
   my $args = shift;

   return ({
      "$args->{foreign_alias}.weirdkey" => \"substr($args->{self_alias}.key,9)",},$args->{self_rowobj} && {
      "$args->{foreign_alias}.weirdkey" => substr($args->{self_rowobj}->key,9)
   })
});

请注意,如果您拥有当前行对象,则使用perl的substr,因此连接将仅折叠为where子句,并且不会将数据库用于字符串munging.如果您遇到问题,请将其移除或摆弄它. DBIC_TRACE应该清楚说明发生了什么.

文档：https://metacpan.org/pod/DBIx::Class::Relationship::Base#condition