migrate almost all code to Generator::Role::DDL

[dbsrgits/SQL-Translator.git] / lib / SQL / Translator / Generator / Role / DDL.pm

diff --git a/lib/SQL/Translator/Generator/Role/DDL.pm b/lib/SQL/Translator/Generator/Role/DDL.pm
index f7c2964..5533a01 100644 (file)
--- a/lib/SQL/Translator/Generator/Role/DDL.pm
+++ b/lib/SQL/Translator/Generator/Role/DDL.pm
@@ -50,11 +50,11 @@ sub table_comments {
    my ($self, $table) = @_;
    if ($self->add_comments) {
       return (
-         "\n",
-         "--\n",
-         "-- Table: " . $self->quote($table->name) . "\n",
-         "--\n",
-         map "-- $_\n", $table->comments
+         "",
+         "--",
+         "-- Table: " . $self->quote($table->name) . "",
+         "--",
+         map "-- $_", $table->comments
       )
    } else {
       return ()