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]->shim->quote($_[1]->name || $_[1]->table->name . '_pk') .
63 join( ', ', map $_[0]->shim->quote($_), $_[1]->fields ) .
69 $_[0]->shim->quote($_[1]->name || $_[1]->table->name . '_idx') .
70 ' ON ' . $_[0]->shim->quote($_[1]->table->name) .
71 ' (' . join( ', ', map $_[0]->shim->quote($_), $_[1]->fields ) . ');'
74 sub unique_constraint_single {
75 my ($self, $constraint) = @_;
78 $self->unique_constraint_name($constraint) .
79 ' UNIQUE (' . join( ', ', $constraint->fields ) . ')'
82 sub unique_constraint_name {
83 my ($self, $constraint) = @_;
84 $self->shim->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->shim->quote($constraint->table->name) . ' (' .
93 join( ', ', $constraint->fields ) . ')' .
94 ' WHERE ' . join( ' AND ',
95 map $self->shim->quote($_->name) . ' IS NOT NULL',
96 grep { $_->is_nullable } $constraint->fields ) . ';'