add index column, since moving to HashRef makes us lose ordering

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

diff --git a/lib/SQL/Translator/Object/Column.pm b/lib/SQL/Translator/Object/Column.pm
index 2badd35..06b79b1 100644 (file)
--- a/lib/SQL/Translator/Object/Column.pm
+++ b/lib/SQL/Translator/Object/Column.pm
@@ -5,47 +5,74 @@ use SQL::Translator::Types qw(Trigger);
 extends 'SQL::Translator::Object';
 
 has 'name' => (
-  is => 'ro',
+  is => 'rw',
   isa => Str,
   required => 1
 );
 
 has 'type' => (
-  is => 'ro',
+  is => 'rw',
   isa => Str,
   required => 1
 );
 
 has 'size' => (
-  is => 'ro',
+  is => 'rw',
   isa => Int,
   required => 1
 );
 
 has 'is_nullable' => (
-  is => 'ro',
+  is => 'rw',
   isa => Bool,
   required => 1,
   default => 1
 );
 
 has 'is_auto_increment' => (
-  is => 'ro',
+  is => 'rw',
+  isa => Bool,
+  required => 1,
+  default => 0
+);
+
+has 'is_primary_key' => (
+  is => 'rw',
+  isa => Bool,
+  required => 1,
+  default => 0
+);
+
+has 'is_foriegn_key' => (
+  is => 'rw',
+  isa => Bool,
+  required => 1,
+  default => 0
+);
+
+has 'is_unique' => (
+  is => 'rw',
   isa => Bool,
   required => 1,
   default => 0
 );
 
 has 'default_value' => (
-  is => 'ro',
+  is => 'rw',
   isa => Str,
   required => 0
 );
 
 has 'trigger' => (
-  is => 'ro',
+  is => 'rw',
   isa => Trigger,
   required => 0
 );
 
+has 'index' => (
+  is => 'rw',
+  isa => Int,
+  required => 1
+);
+
 1;