projects
/
dbsrgits/SQL-Translator-2.0-ish.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
comments cannot be set in the constructor, must use external method
[dbsrgits/SQL-Translator-2.0-ish.git]
/
lib
/
SQL
/
Translator
/
Object
/
ForeignKey.pm
1
use MooseX::Declare;
2
class SQL::Translator::Object::ForeignKey extends SQL::Translator::Object::Constraint {
3
use MooseX::Types::Moose qw(Maybe Str);
4
5
has '+type' => (
6
default => 'FOREIGN KEY',
7
);
8
9
has 'on_delete' => (
10
isa => Maybe[Str],
11
is => 'rw',
12
);
13
14
has 'on_update' => (
15
isa => Maybe[Str],
16
is => 'rw',
17
);
18
19
has 'reference_table' => (
20
isa => Str,
21
is => 'rw',
22
);
23
}