lib/SQL/Translator/Generator/DDL/SQLite.pm

   1 package SQL::Translator::Generator::DDL::SQLite;
   2
   3 # AUTHOR: Arthur Axel fREW Schmidt
   4 # Copyright: Same as Perl 5
   5
   6 use Moo;
   7 use SQL::Translator::Generator::Utils;
   8
   9 has quote_chars => (is=>'ro', default=>sub { +[qw(" ")] } );
  10
  11 with 'SQL::Translator::Generator::Role::Quote';
  12 with 'SQL::Translator::Generator::Role::DDL';
  13
  14 sub name_sep { q(.) }
  15
  16 sub _build_type_map {
  17    +{
  18       date => 'datetime',
  19       'time' => 'datetime',
  20    }
  21 }
  22
  23 sub _build_sizeless_types { +{ text => 1 } }
  24 sub _build_numeric_types { +{ int => 1, tinyint => 1 } }
  25
  26 sub _build_unquoted_defaults {
  27    +{
  28        NULL              => 1,
  29        'now()'           => 1,
  30        CURRENT_TIMESTAMP => 1,
  31    }
  32 }
  33
  34 sub nullable { () }
  35
  36 sub _ipk {
  37    my ($self, $field) = @_;
  38
  39    my $pk = $field->table->primary_key;
  40    my @pk_fields = $pk ? $pk->fields : ();
  41
  42    $field->is_primary_key && scalar @pk_fields == 1 &&
  43    ( $field->data_type =~ /int(eger)?$/i
  44     ||
  45    ( $field->data_type =~ /^number?$/i && $field->size !~ /,/ ) )
  46 }
  47
  48 sub field {
  49    my ($self, $field) = @_;
  50
  51
  52    return join ' ',
  53       $self->field_comments($field),
  54       $self->field_name($field),
  55       ( $self->_ipk($field)
  56          ? ( 'INTEGER PRIMARY KEY' )
  57          : ( $self->field_type($field) )
  58       ),
  59       $self->field_nullable($field),
  60       $self->field_default($field),
  61 }
  62
  63 1;
  64