#This is file: Users.pm

package Users;  #Class name

use strict;
use warnings;
use base 'Class::DBI';  
    #Users inherits from Class::DBI

#Database specific info comes next:
Users->connection('dbi:mysql:my_db', 'root', '');
#Format is: (dbi:<database_type>:<db_name>, <username>, <password>)

#Connect your class to a table:
Users->table('TempAccountRegistry');

#Declare the columns in the table(a primary key is required):
Users->columns(All => qw/id username password created/);

1;