use MooseX::Declare;
-class SQL::Translator::Object::ForeignKey {
- use MooseX::Types::Moose qw(ArrayRef Maybe Undef Str);
- 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',
);
- has 'reference_columns' => (
- isa => ArrayRef | Undef,
- is => 'rw',
- auto_deref => 1
- );
-
has 'on_delete' => (
isa => Maybe[Str],
is => 'rw',
isa => Str,
is => 'rw',
);
-
- method reference_fields { return $self->reference_columns }
}