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'); #### my $details = InContact::cDBI::contact->contact_detail(recontact => $tm); print Dumper $details; #### $VAR1 = bless( { '_data' => [ { 'id' => '6' }, { 'id' => '7' } ], '_place' => 0, '_mapper' => [], '_class' => 'InContact::cDBI::contactdetail'