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