perl – 如何在Class :: DBI中使用add_to？

概述我正在尝试将Class :: DBI与简单的父母一起使用 – >可能是孩子们的关系： Data::Company->table('Companies');Data::Company->columns(All => qw/CompanyId Name Url/);Data::Company->has_many(offers => 'Data::Offer'=>'CompanyId'); # => 我正在尝试将Class :: DBI与简单的父母一起使用 – >可能是孩子们的关系：

Data::Company->table('CompanIEs');Data::Company->columns(All => qw/CompanyID name Url/);Data::Company->has_many(offers => 'Data::Offer'=>'CompanyID'); # =>'CompanyID'

和

Data::Offer->table('Offers');Data::Offer->columns(All => qw/OfferID CompanyID MonthlyPrice/);Data::Offer->has_a(company => 'Data::Company'=>'CompanyID');

我尝试添加一条新记录：

my $company = Data::Company->insert({ name => 'Test',Url => 'http://url' });my $offer = $company->add_to_offers({  MonthlyPrice => 100 });

但我得到：

Can't locate object method "add_to_offers" via package "Data::Company"

我看了一下古典音乐:: CD的例子,但我无法弄清楚我做错了什么.

解决方法 我同意Manni,如果您的包声明在同一个文件中,那么您需要首先定义具有has_a()关系的类.否则,如果它们位于不同的源文件中,则文档说明：

Class::DBI should usually be able to
do the right things,as long as all
classes inherit Class::DBI before
‘use’ing any other classes.

至于三参数形式,你正在做得恰当. has_many()的第三个arg是外部类中的列,它是此类的外键.也就是说,Offer有一个指向公司CompanyID的CompanyID.

总结

以上是内存溢出为你收集整理的perl – 如何在Class :: DBI中使用add_to？全部内容，希望文章能够帮你解决perl – 如何在Class :: DBI中使用add_to？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。