package Login::User; use base 'Login::DBI'; use strict; Login::User->table( "user" ); Login::User->columns(All => qw(uid login password)); 1;