add drop_table and no_comments attributes

[dbsrgits/SQL-Translator-2.0-ish.git] / lib / SQL / Translator / Producer.pm

diff --git a/lib/SQL/Translator/Producer.pm b/lib/SQL/Translator/Producer.pm
index a19eab3..4cc3084 100644 (file)
--- a/lib/SQL/Translator/Producer.pm
+++ b/lib/SQL/Translator/Producer.pm
@@ -1,7 +1,7 @@
 package SQL::Translator::Producer;
 use namespace::autoclean;
 use Moose;
-use MooseX::Types::Moose qw(Str);
+use MooseX::Types::Moose qw(Bool Str);
 use SQL::Translator::Types qw(Schema);
 
 has 'schema' => (
@@ -10,6 +10,20 @@ has 'schema' => (
     required => 1
 );
 
+has 'no_comments' => (
+    isa => Bool,
+    is => 'rw',
+    lazy => 1, 
+    default => 0
+);
+
+has 'drop_table' => (
+    isa => Bool,
+    is => 'rw',
+    lazy => 1,
+    default => 1
+);
+
 sub produce {
     my $self = shift;
     my $schema = $self->schema;