add curries where applicable

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

diff --git a/lib/SQL/Translator/Object/Index.pm b/lib/SQL/Translator/Object/Index.pm
index 931ca0c..57358cf 100644 (file)
--- a/lib/SQL/Translator/Object/Index.pm
+++ b/lib/SQL/Translator/Object/Index.pm
@@ -19,9 +19,11 @@ has 'columns' => (
     exists => 'exists_column',
     keys   => 'column_ids',
     get    => 'get_column',
-    set    => 'set_column',
+#    set    => 'set_column',
   },
-  required => 1
+  curries => { set => { add_column => sub { my ($self, $body, $column) = @_; $self->$body($column->name, $column); } } },
+  default => sub { {} },
+  required => 0 
 );
 
 has 'type' => (
@@ -30,4 +32,7 @@ has 'type' => (
   required => 1
 );
 
+no Moose;
+__PACKAGE__->meta->make_immutable;
+
 1;