From: ivan Date: Wed, 27 Sep 2000 13:57:55 +0000 (+0000) Subject: DBSchema->sql usage clarification X-Git-Tag: DBIx_DBSchema_0_01~3 X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=3a8ce3a9fb86ca9ed4f343a663d5a9a3b0f9f599;p=DBIx-DBSchema.git DBSchema->sql usage clarification --- diff --git a/DBSchema.pm b/DBSchema.pm index 7e0de78..94edd0a 100644 --- a/DBSchema.pm +++ b/DBSchema.pm @@ -39,7 +39,7 @@ DBIx::DBSchema - Database-independent schema objects $DBIx_DBSchema_table_object = $schema->table("table_name"); - @sql_string = $schema->sql($dsn); + @sql = $schema->sql($dsn); $perl_code = $schema->pretty_print; %hash = eval $perl_code; @@ -202,7 +202,7 @@ database, will attempt to use generic SQL syntax. =cut -sub sql_string { +sub sql { my($self, $datasrc) = @_; map { $self->table($_)->sql_create_table($datasrc); } $self->tables; }