package User; use strict; use base 'Class::DBI'; User->table('user'); User->columns(Primiary=>qw/name/); User->columns(Other=>qw/password age/); 1;