Commit | Line | Data |
4f4fd192 |
1 | use MooseX::Declare; |
2 | class SQL::Translator::Object::ForeignKey { |
70ada8ac |
3 | use MooseX::Types::Moose qw(ArrayRef Maybe Undef Str); |
4f4fd192 |
4 | extends 'SQL::Translator::Object::Constraint'; |
5 | |
6 | has '+type' => ( |
70ada8ac |
7 | default => 'FOREIGN KEY', |
4f4fd192 |
8 | ); |
9 | |
70ada8ac |
10 | has 'reference_columns' => ( |
11 | isa => ArrayRef | Undef, |
12 | is => 'rw', |
13 | auto_deref => 1 |
14 | ); |
15 | |
16 | has 'on_delete' => ( |
17 | isa => Maybe[Str], |
18 | is => 'rw', |
19 | ); |
20 | |
21 | has 'on_update' => ( |
22 | isa => Maybe[Str], |
23 | is => 'rw', |
24 | ); |
25 | |
26 | has 'reference_table' => ( |
27 | isa => Str, |
4f4fd192 |
28 | is => 'rw', |
4f4fd192 |
29 | ); |
70ada8ac |
30 | |
31 | method reference_fields { return $self->reference_columns } |
4f4fd192 |
32 | } |