"'$table' => {\n".
" 'columns' => [\n".
join("", map {
+ #cant because -w complains about , in qw()
+ # (also biiiig problems with empty lengths)
+ #" qw( $_ ".
+ #$self->table($table)->column($_)->type. " ".
+ #( $self->table($table)->column($_)->null ? 'NULL' : 0 ). " ".
+ #$self->table($table)->column($_)->length. " ),\n"
" '$_', ".
"'". $self->table($table)->column($_)->type. "', ".
- "'". $self->table($table)->column($_)->null. "', ".
+ "'". $self->table($table)->column($_)->null. "', ".
"'". $self->table($table)->column($_)->length. "'\n"
} $self->table($table)->columns
).
Each DBIx::DBSchema object should have a name which corresponds to its name
within the SQL database engine (DBI data source).
-pretty_print is atrocious.
+pretty_print is actually pretty ugly.
=head1 SEE ALSO
sub new_odbc {
my( $proto, $dbh, $name) = @_;
- #my $driver = DBIx::DBSchema::_load_driver($dbh);
- my $driver = DBIx::DBSchema::_load_driver(DBI->connect("dbi:CSV:dbname=testfile", "postgres", ""));
+ my $driver = DBIx::DBSchema::_load_driver($dbh);
my $sth = _null_sth($dbh, $name);
my $sthpos = 0;
$proto->new (
push @columns, map "INDEX ($_)", $self->index->sql_list;
}
- "CREATE TABLE ". $self->name. " ( ". join(", ", @columns). " )",
+ "CREATE TABLE ". $self->name. " (\n ". join(",\n ", @columns). "\n)\n",
( map {
my($index) = $self->name. "__". $_ . "_index";
$index =~ s/,\s*/_/g;
- "CREATE UNIQUE INDEX $index ON ". $self->name. " ($_)"
+ "CREATE UNIQUE INDEX $index ON ". $self->name. " ($_)\n"
} $self->unique->sql_list ),
( map {
my($index) = $self->name. "__". $_ . "_index";
$index =~ s/,\s*/_/g;
- "CREATE INDEX $index ON ". $self->name. " ($_)"
+ "CREATE INDEX $index ON ". $self->name. " ($_)\n"
} $self->index->sql_list ),
;