-package SQL::Translator::Object::PrimaryKey;
-use Moose;
-extends 'SQL::Translator::Object::Index';
-
-has '+type' => (
- default => 'PRIMARY_KEY',
-);
-
-1;
+use MooseX::Declare;
+class SQL::Translator::Object::PrimaryKey extends (SQL::Translator::Object::Index, SQL::Translator::Object::Constraint) {
+ has '+type' => (
+ default => 'PRIMARY KEY',
+ );
+}