[Dbix-class] has_many: no such column

[xu zhou]

Hi all,
       I just begin to use DBIx::Class, and  I got a error described like
this:

DBIx::Class::Schema::throw_exception(): DBIx::Class::Row::throw_exception():
DBIx::Class::Relationship::HasMany::has_many(): No such column zone on
foreign class DNS::WebDns::Result::Resource (using our class name
'DNS::WebDns::Result::Zone' as foreign key) at DNS/WebDns/Result/Zone.pm
line 9
Compilation failed in require at
/usr/local/lib/perl5/site_perl/5.10.0/Class/C3/Componentised.pm line 128.
Compilation failed in require at
/usr/local/lib/perl5/site_perl/5.10.0/Class/C3/Componentised.pm line 128.


Here is my code:

use base qw/DBIx::Class/;
__PACKAGE__->load_components(qw/Core PK::Auto/);
__PACKAGE__->table('dns_zone');
__PACKAGE__->add_columns(
    qw/ zone_id zone_name zone_ttl soa_ttl primary_name_server
hostmaster_email serial retry refresh expire minimum_ttl city_rdc
created_time modified_time /
);
__PACKAGE__->set_primary_key('zone_id');
__PACKAGE__->has_many( 'resource' =3D> 'DNS::WebDns::Result::Resource' );

1;

package DNS::WebDns::Result::Resource;
use base qw/DBIx::Class/;

__PACKAGE__->load_components(qw/Core PK::Auto/);
__PACKAGE__->table('dns_resource_record');
__PACKAGE__->add_columns(qw/ resource_id zone_id map_from ttl type
preference map_to created_time modified_time /);
__PACKAGE__->set_primary_key('resource_id');
__PACKAGE__->belongs_to( 'zone_id' =3D> 'DNS::WebDns::Result::Zone');

1;




actually quite simple and has nothing to discuss.
but how come I got that Compilation Error?
my DBIx::Class version is 0.08108

thanks.


-- =

Xu Zhou
Tju->PMO->Where?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.scsys.co.uk/pipermail/dbix-class/attachments/20090805/afc=
4682f/attachment.htm