package AppSys::DBI; use Class::DBI::Iterator; use base 'Class::DBI::mysql'; AppSys::DBI->set_db('Main', 'DBI:mysql:appsys', '****', '****'); package AppSys::BusinessHours; use base AppSys::DBI; AppSys::BusinessHours->set_up_table("pr_businesshours"); AppSys::BusinessHours->has_a('int_dow' => 'AppSys::DOW'); package AppSys::DOW; use base AppSys::DBI; AppSys::DOW->set_up_table("as_dow");