make "is_unique" an attribute

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

diff --git a/lib/SQL/Translator/Object/ForeignKey.pm b/lib/SQL/Translator/Object/ForeignKey.pm
index e3ed307..baed85c 100644 (file)
--- a/lib/SQL/Translator/Object/ForeignKey.pm
+++ b/lib/SQL/Translator/Object/ForeignKey.pm
@@ -1,15 +1,23 @@
 use MooseX::Declare;
-class SQL::Translator::Object::ForeignKey {
-    use SQL::Translator::Types qw(Index PrimaryKey);
-    extends 'SQL::Translator::Object::Constraint';
+class SQL::Translator::Object::ForeignKey extends SQL::Translator::Object::Constraint {
+    use MooseX::Types::Moose qw(Maybe Str);
     
     has '+type' => (
-        default => 'FOREIGN_KEY',
+        default => 'FOREIGN KEY',
     );
     
-    has 'references' => (
-        isa => PrimaryKey | Index,
+    has 'on_delete' => (
+        isa => Maybe[Str],
+        is => 'rw',
+    );
+
+    has 'on_update' => (
+        isa => Maybe[Str],
+        is => 'rw',
+    );
+
+    has 'reference_table' => (
+        isa => Str,
         is => 'rw',
-        required => 1,
     );
 }