我正在尝试将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的例子,但我无法弄清楚我做错了什么.