1 package SQL::Translator::Generator::DDL::SQLServer;
4 use SQL::Translator::Generator::Utils;
6 with 'SQL::Translator::Generator::Role::DDL';
8 sub _build_shim { SQL::Translator::Generator::Utils->new( quote_chars => [qw( [ ] )] ) }
10 sub _build_numeric_types {
16 sub _build_unquoted_defaults {
29 has sizeless_types => (
31 builder => '_build_sizeless_types',
34 sub _build_sizeless_types {
36 qw( tinyint smallint int integer bigint text bit image datetime ) }
40 my ($self, $field) = @_;
42 return join ' ', $self->field_name($field), ($self->field_type($field)||die 'type is required'),
43 $self->field_autoinc($field),
44 $self->field_nullable($field),
45 $self->field_default($field),
49 my ($self, $field) = @_;
51 ($field->size && !$self->sizeless_types->{$field->data_type}
52 ? '(' . $field->size . ')'
57 sub field_autoinc { ( $_[1]->is_auto_increment ? 'IDENTITY' : () ) }
59 sub primary_key_constraint {
61 $_[0]->quote($_[1]->name || $_[1]->table->name . '_pk') .
63 join( ', ', map $_[0]->quote($_), $_[1]->fields ) .
69 $_[0]->quote($_[1]->name || $_[1]->table->name . '_idx') .
70 ' ON ' . $_[0]->quote($_[1]->table->name) .
71 ' (' . join( ', ', map $_[0]->quote($_), $_[1]->fields ) . ');'
74 sub unique_constraint_single {
75 my ($self, $constraint) = @_;
78 $self->unique_constraint_name($constraint) .
79 ' UNIQUE (' . join( ', ', map $self->quote($_), $constraint->fields ) . ')'
82 sub unique_constraint_name {
83 my ($self, $constraint) = @_;
84 $self->quote($constraint->name || $constraint->table->name . '_uc' )
87 sub unique_constraint_multiple {
88 my ($self, $constraint) = @_;
90 'CREATE UNIQUE NONCLUSTERED INDEX ' .
91 $self->unique_constraint_name($constraint) .
92 ' ON ' . $self->quote($constraint->table->name) . ' (' .
93 join( ', ', $constraint->fields ) . ')' .
94 ' WHERE ' . join( ' AND ',
95 map $self->quote($_->name) . ' IS NOT NULL',
96 grep { $_->is_nullable } $constraint->fields ) . ';'
99 sub foreign_key_constraint {
100 my ($self, $constraint) = @_;
102 my $on_delete = uc ($constraint->on_delete || '');
103 my $on_update = uc ($constraint->on_update || '');
105 # The default implicit constraint action in MSSQL is RESTRICT
106 # but you can not specify it explicitly. Go figure :)
107 for (map uc $_ || '', $on_delete, $on_update) {
108 undef $_ if $_ eq 'RESTRICT'
111 'ALTER TABLE ' . $self->quote($constraint->table->name) .
113 $self->quote($constraint->name || $constraint->table->name . '_fk') .
115 ' (' . join( ', ', map $self->quote($_), $constraint->fields ) . ') REFERENCES '.
116 $self->quote($constraint->reference_table) .
117 ' (' . join( ', ', map $self->quote($_), $constraint->reference_fields ) . ')'
119 $on_delete && $on_delete ne "NO ACTION"
120 ? ' ON DELETE ' . $on_delete
123 $on_update && $on_update ne "NO ACTION"
124 ? ' ON UPDATE ' . $on_update
129 sub enum_constraint_name {
130 my ($self, $field_name) = @_;
131 $self->quote($field_name . '_chk' )
134 sub enum_constraint {
135 my ( $self, $field_name, $vals ) = @_;
138 'CONSTRAINT ' . $self->enum_constraint_name($field_name) .
139 ' CHECK (' . $self->quote($field_name) .
140 ' IN (' . join( ',', map qq('$_'), @$vals ) . '))'