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' : () ) }