perl - 如何获取外键而不是对象的值？

Question

我有两张 table ，book和 language ; book belongs_to language通过拥有 language列说明它使用的语言。language表只是language柱子。

我想做$book->language并获取语言字符串，而无需从 language 中获取语言 table 。有没有办法做到这一点？

我怀疑这与返回上下文有关。我应该做某种重载，说:

use overload "language_string" => sub {
  my $self = shift;
  return $self->language;
}, fallback => 1;

但在那种情况下，当然，我仍然在学习语言。

Answer 1

一种解决方案是定义与列名称不同的关系，例如rel_$colname .
那么 DBIC 生成的访问器方法对于列值和相关对象会有所不同。

如果您不想更改关系名称，您可以随时使用 $row->get_column('colname'); 访问列值。