projects
/
DBIx-DBSchema.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
15bb5bf
)
remove some debugging cruft, oops
author
ivan
<ivan>
Wed, 27 Sep 2000 12:25:44 +0000
(12:25 +0000)
committer
ivan
<ivan>
Wed, 27 Sep 2000 12:25:44 +0000
(12:25 +0000)
DBSchema.pm
patch
|
blob
|
history
DBSchema/Table.pm
patch
|
blob
|
history
diff --git
a/DBSchema.pm
b/DBSchema.pm
index
327a0cc
..
ae82a9b
100644
(file)
--- a/
DBSchema.pm
+++ b/
DBSchema.pm
@@
-209,9
+209,15
@@
sub pretty_print {
"'$table' => {\n".
" 'columns' => [\n".
join("", map {
"'$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($_)->type. "', ".
- "'". $self->table($table)->column($_)->null. "', ".
+ "'". $self->table($table)->column($_)->null. "', ".
"'". $self->table($table)->column($_)->length. "'\n"
} $self->table($table)->columns
).
"'". $self->table($table)->column($_)->length. "'\n"
} $self->table($table)->columns
).
@@
-282,7
+288,7
@@
the same terms as Perl itself.
Each DBIx::DBSchema object should have a name which corresponds to its name
within the SQL database engine (DBI data source).
Each DBIx::DBSchema object should have a name which corresponds to its name
within the SQL database engine (DBI data source).
-pretty_print is a
trocious
.
+pretty_print is a
ctually pretty ugly
.
=head1 SEE ALSO
=head1 SEE ALSO
diff --git
a/DBSchema/Table.pm
b/DBSchema/Table.pm
index
56852a4
..
a05becf
100644
(file)
--- a/
DBSchema/Table.pm
+++ b/
DBSchema/Table.pm
@@
-112,8
+112,7
@@
column names and attributes *should* work for any database.
sub new_odbc {
my( $proto, $dbh, $name) = @_;
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 (
my $sth = _null_sth($dbh, $name);
my $sthpos = 0;
$proto->new (
@@
-294,16
+293,16
@@
sub sql_create_table {
push @columns, map "INDEX ($_)", $self->index->sql_list;
}
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;
( 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;
} $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 ),
;
} $self->index->sql_list ),
;