make PrimaryKey an Index and Constraint

diff --git a/lib/SQL/Translator/Object/PrimaryKey.pm b/lib/SQL/Translator/Object/PrimaryKey.pm
index 490786c..240d71a 100644 (file)
--- a/lib/SQL/Translator/Object/PrimaryKey.pm
+++ b/lib/SQL/Translator/Object/PrimaryKey.pm
@@ -1,8 +1,8 @@
 use MooseX::Declare;
 class SQL::Translator::Object::PrimaryKey {
-    extends 'SQL::Translator::Object::Index';
+    extends qw(SQL::Translator::Object::Index SQL::Translator::Object::Constraint);
 
     has '+type' => (
-        default => 'PRIMARY_KEY',
+        default => 'PRIMARY KEY',
     );
 }