X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FProducer.pm;h=4cc3084c8d36079e8464a20565b805126a187584;hb=672dfd6b467f7f4258a1f8c0238b122de9db19cc;hp=a19eab300f518f31730926260b0a671b868aa8b3;hpb=03749994bfb02e8476c505357047be99b0710981;p=dbsrgits%2FSQL-Translator-2.0-ish.git

diff --git a/lib/SQL/Translator/Producer.pm b/lib/SQL/Translator/Producer.pm
index a19eab3..4cc3084 100644
--- 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;