my @DSN = ("dbi:SQLite:dbname=$DB", '', '', { AutoCommit => 1 });
__PACKAGE__->connection(@DSN);
-#__PACKAGE__->set_sql(_table_pragma => 'PRAGMA table_info(__TABLE__)');
-#__PACKAGE__->set_sql(_create_me => 'CREATE TABLE __TABLE__ (%s)');
+__PACKAGE__->set_sql(_table_pragma => 'PRAGMA table_info(__TABLE__)');
+__PACKAGE__->set_sql(_create_me => 'CREATE TABLE __TABLE__ (%s)');
=head1 METHODS
sub _create_test_table {
my $class = shift;
- my @vals = $class->_sql_to_sth(
- 'PRAGMA table_info(__TABLE__)')->select_row;
- $class->_sql_to_sth(
- 'CREATE TABLE '.$class->table.' ('.$class->create_sql.')'
- )->execute unless @vals;
+ my @vals = $class->sql__table_pragma->select_row;
+ $class->sql__create_me($class->create_sql)->execute unless @vals;
+# my @vals = $class->_sql_to_sth(
+# 'PRAGMA table_info(__TABLE__)')->select_row;
+# $class->_sql_to_sth(
+# 'CREATE TABLE '.$class->table.' ('.$class->create_sql.')'
+# )->execute unless @vals;
}
=head2 create_sql (abstract)