You are looking at a very old, but free version of the course. If you are interesed the most recent version, check it out on the Perl Maven site.

14.4. MyDBI and MyUsers

Example 14-3. examples/cdbi/MyDBI.pm

package MyDBI;
use base 'Class::DBI';
MyDBI->set_db('Main', 'dbi:SQLite:dbname=site.db');


1;

Example 14-4. examples/cdbi/MyUsers.pm

package MyUsers;
use base 'MyDBI';
MyUsers->table('users');
MyUsers->columns(All => qw/fname lname email pw/);

1;

If you are interested in on-site trainings by the author, please contact me directly.