From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Wed, 29 Jul 2009 05:43:24 +0000 (-0700)
Subject: add comments attribute
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f78a484a775febd492299f795c021e92bf2f71b8;p=dbsrgits%2FSQL-Translator-2.0-ish.git

add comments attribute
---

diff --git a/lib/SQL/Translator/Object/Table.pm b/lib/SQL/Translator/Object/Table.pm
index e91731f..9e8d986 100644
--- a/lib/SQL/Translator/Object/Table.pm
+++ b/lib/SQL/Translator/Object/Table.pm
@@ -1,6 +1,6 @@
 use MooseX::Declare;
 class SQL::Translator::Object::Table {
-    use MooseX::Types::Moose qw(Bool HashRef Str);
+    use MooseX::Types::Moose qw(Bool HashRef Maybe Str);
     use MooseX::AttributeHelpers;
     use SQL::Translator::Types qw(Column Constraint Index Schema Sequence);
     use SQL::Translator::Object::Schema;
@@ -91,6 +91,11 @@ class SQL::Translator::Object::Table {
         },
         default => sub { {} },
     );
+
+    has 'comments' => (
+        is => 'rw',
+        isa => Maybe[Str],
+    );
     
     has 'temporary' => (
         is => 'rw',