package InContact::cDBI; use strict; use Data::Dumper; use Class::DBI; use Class::DBI::mysql; use base 'Class::DBI::mysql'; InContact::cDBI->set_db('Main', 'dbi:mysql:incontact', 'root', ''); package InContact::cDBI::contactdetail; use base 'InContact::cDBI'; #__PACKAGE__->set_up_table('contactdetail'); #__PACKAGE__->has_a('contact_id' => 'InContact::cDBI::contact'); package InContact::cDBI::contact; use base 'InContact::cDBI'; # #__PACKAGE__->set_up_table('contact'); #__PACKAGE__->has_many('contact_detail' => 'InContact::cDBI::contactdetail', 'contact_id'); # 1; #### Free to wrong pool 88b278 not c0104 during global destruction. 'start4_01.pl' had compilation errors.