package Test::DBI; use base 'Class::DBI'; Test::DBI->set_db('Main', 'DBI:mysql:appsys2', '****', '****'); package TestDBI::userrole; use base 'Test::DBI'; __PACKAGE__->table('user_role'); __PACKAGE__->columns(All => qw(user_id role_id)); __PACKAGE__->has_a( role_id => TestDBI::role ); __PACKAGE__->has_a( user_id => TestDBI::user ); package TestDBI::user; use base 'Test::DBI'; __PACKAGE__->table('user'); __PACKAGE__->columns(All => qw(user_id firstname lastname)); __PACKAGE__->has_many(haveroles => ['TestDBI::userrole' => 'role_id'] ); package TestDBI::role; use base 'Test::DBI'; __PACKAGE__->table('role'); __PACKAGE__->columns(All => qw(role_id rolename)); 1;