add curries where applicable

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

diff --git a/lib/SQL/Translator/Object/Table.pm b/lib/SQL/Translator/Object/Table.pm
index a91ca9c..6f64961 100644 (file)
--- a/lib/SQL/Translator/Object/Table.pm
+++ b/lib/SQL/Translator/Object/Table.pm
@@ -20,8 +20,10 @@ has 'columns' => (
     exists => 'exists_column',
     keys   => 'column_ids',
     get    => 'get_column',
-    set    => 'set_column',
+#    set    => 'set_column',
   },
+  curries => { set => { add_column => sub { my ($self, $body, $column) = @_; $self->$body($column->name, $column); } } },
+  default => sub { {} },
   required => 0
 );
 
@@ -33,8 +35,10 @@ has 'indexes' => (
     exists => 'exists_index',
     keys   => 'index_ids',
     get    => 'get_index',
-    set    => 'set_index',
+#    set    => 'set_index',
   },
+  curries => { set => { add_index => sub { my ($self, $body, $index) = @_; $self->$body($index->name, $index); } } },
+  default => sub { {} },
   required => 0
 );
 
@@ -48,14 +52,19 @@ has 'constraints' => (
     get    => 'get_constraint',
     set    => 'set_constraint',
   },
+  default => sub { {} },
   required => 0
 );
 
+=cut
 has 'schema' => (
   is => 'rw',
   isa => Schema,
   required => 0,
   default => sub { SQL::Translator::Object::Schema->new }
 );
+=cut
+no Moose;
+__PACKAGE__->meta()->make_immutable;
 
 1;