package MyDB; use base 'Class::DBI'; __PACKAGE__->set_db('Main', 'dbi:mysql:mydb', 'public', 'password'); 1; #### package MyDBUpdate; use base 'Class::DBI'; __PACKAGE__->set_db('Main', 'dbi:mysql:mydb', 'staff', 'password'); 1; #### package Person; use base 'MyDB'; __PACKAGE__->table('person'); __PACKAGE__->columns(All => qw/ first_name last_name street city state zip /); 1; #### package PersonUpdate; use base 'MyDBUpdate'; __PACKAGE__->table('person'); __PACKAGE__->columns(All => qw/ first_name last_name street city state zip /); 1; #### package PersonUpdate; use base 'Person'; __PACKAGE__->set_db('Main', 'dbi:mysql:mydb', 'staff', 'password'); 1;