Class::DBI::Test::SQLiUser)Contributed Perl DocumenClass::DBI::Test::SQLite(3)NAMEClass::DBI::Test::SQLite - Base class for Class::DBI tests
SYNOPSIS
use base 'Class::DBI::Test::SQLite';
__PACKAGE__->set_table('test');
__PACKAGE__->columns(All => qw/id name film salary/);
sub create_sql {
return q{
id INTEGER PRIMARY KEY,
name CHAR(40),
film VARCHAR(255),
salary INT
}
}
DESCRIPTION
This provides a simple base class for Class::DBI tests using SQLite.
Each class for the test should inherit from this, provide a
create_sql() method which returns a string representing the SQL used to
create the table for the class, and then call set_table() to create the
table, and tie it to the class.
METHODS
set_table
__PACKAGE__->set_table('test');
This combines creating the table with the normal Class::DBI table()
call.
create_sql (abstract)
sub create_sql {
return q{
id INTEGER PRIMARY KEY,
name CHAR(40),
film VARCHAR(255),
salary INT
}
}
This should return, as a text string, the schema for the table
represented by this class.
perl v5.14.1 2005-05-24 Class::DBI::Test::SQLite(3)