Automatic Testing with Perl
Prev	Chapter 14. Database access using Class::DBI

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;

Prev	Home (Copyright Gabor Szabo)
SELECT using Class::DBI	Up

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