add header_comment

[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 abdd46e..8339a20 100644 (file)
--- a/lib/SQL/Translator/Generator/Role/DDL.pm
+++ b/lib/SQL/Translator/Generator/Role/DDL.pm
@@ -1,6 +1,7 @@
 package SQL::Translator::Generator::Role::DDL;
 
 use Moo::Role;
+use SQL::Translator::Utils qw(header_comment);
 
 requires '_build_shim';
 requires '_build_type_map';
@@ -69,4 +70,6 @@ sub fields {
 
 sub nullable { 'NULL' }
 
+sub header_comments { header_comment() . "\n" if $_[0]->add_comments }
+
 1;