import constants

[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 68ed5e8..16e0a86 100644 (file)
--- a/lib/SQL/Translator/Object/Column.pm
+++ b/lib/SQL/Translator/Object/Column.pm
@@ -1,14 +1,57 @@
 package SQL::Translator::Object::Column;
+use namespace::autoclean;
 use Moose;
-use MooseX::Types::Moose qw(Bool Int Str);
+use MooseX::Types::Moose qw(Bool Int Maybe Str);
 use SQL::Translator::Types qw(Trigger);
+extends 'SQL::Translator::Object';
 
-has 'name' => (is => 'ro', isa => Str, required => 1);
-has 'type' => (is => 'ro', isa => Str, required => 1);
-has 'size' => (is => 'ro', isa => Int, required => 1);
-has 'is_nullable' => (is => 'ro', isa => Bool, required => 1, default => 1);
-has 'is_auto_increment' => (is => 'ro', isa => Bool, required => 1, default => 0);
-has 'default_value' => (is => 'ro', isa => Str, required => 0);
-has 'trigger' => (is => 'ro', isa => Trigger, required => 0);
+has 'name' => (
+    is => 'rw',
+    isa => Str,
+    required => 1
+);
+
+has 'data_type' => (
+    is => 'rw',
+    isa => Int,
+    required => 1
+);
+
+has 'size' => (
+    is => 'rw',
+    isa => Maybe[Int],
+    required => 1
+);
+
+has 'is_nullable' => (
+    is => 'rw',
+    isa => Bool,
+    required => 1,
+    default => 1
+);
+
+has 'is_auto_increment' => (
+    is => 'rw',
+    isa => Bool,
+    required => 1,
+    default => 0
+);
+
+has 'default_value' => (
+    is => 'rw',
+    isa => Maybe[Str],
+);
+
+has 'remarks' => (
+    is => 'rw',
+    isa => Maybe[Str],
+);
+
+has 'trigger' => (
+    is => 'rw',
+    isa => Trigger,
+);
+
+__PACKAGE__->meta->make_immutable;
 
 1;