add comments, better default handling
[dbsrgits/SQL-Translator.git] / lib / SQL / Translator / Generator / DDL / SQLServer.pm
CommitLineData
1ea76bff 1package SQL::Translator::Generator::DDL::SQLServer;
2
3use Moo;
4use SQL::Translator::Generator::Utils;
5
6with 'SQL::Translator::Generator::Role::DDL';
7
8sub _build_shim { SQL::Translator::Generator::Utils->new( quote_chars => [qw( [ ] )] ) }
9
f699ffaa 10sub _build_numeric_types {
11 +{
12 int => 1,
13 }
14}
15
16sub _build_unquoted_defaults {
17 +{
18 NULL => 1,
19 }
20}
21
1ea76bff 22sub _build_type_map {
23 +{
24 date => 'datetime',
25 'time' => 'datetime',
26 }
27}
28
29has sizeless_types => (
30 is => 'ro',
31 builder => '_build_sizeless_types',
32);
33
34sub _build_sizeless_types {
35 +{ map { $_ => 1 }
36 qw( tinyint smallint int integer bigint text bit image datetime ) }
37}
38
39sub field {
40 my ($self, $field) = @_;
41
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),
46}
47
48sub field_type_size {
49 my ($self, $field) = @_;
50
51 ($field->size && !$self->sizeless_types->{$field->data_type}
52 ? '(' . $field->size . ')'
53 : ''
54 )
55}
56
57sub field_autoinc { ( $_[1]->is_auto_increment ? 'IDENTITY' : () ) }
58
591;
60