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/

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


Example 14-4. examples/cdbi/

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


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