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