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.

Online courses:

Would you like to get
updated when I publish
the next article?

Follow me:

Google Plus Twitter RSS feed