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'