时间:2010-07-25 19:21:16

标签: perl dbix-class

2 个答案:

答案 0 :(得分:1)

答案 1 :(得分:1)

my $terms= $schema->resultset('Term')->search(undef, {  
  prefetch => 'definitions',  
});  

my @terms = $terms->all;

my @definitions = map $_->definitions->all, @terms;

这看起来像你想要做的;我不能说。你创建一个新数组,推入它,然后让它超出范围的事实根本没有任何意义。无论如何,如果我理解你正确你想要的是来自DBIx :: Class :: ResultSet的所有方法。