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

   1 package SQL::Translator::Generator::DDL::SQLite;
   2
   3 =head1 NAME
   4
   5 SQL::Translator::Generator::DDL::SQLite - A Moo based SQLite DDL generation
   6 engine.
   7
   8 =head1 DESCRIPTION
   9
  10 I<documentation volunteers needed>
  11
  12 =cut
  13 use Moo;
  14
  15 has quote_chars => (is=>'ro', default=>sub { +[qw(" ")] } );
  16
  17 with 'SQL::Translator::Generator::Role::Quote';
  18 with 'SQL::Translator::Generator::Role::DDL';
  19
  20 sub name_sep { q(.) }
  21
  22 sub _build_type_map {
  23    +{
  24       set   => 'varchar',
  25       bytea => 'blob',
  26    }
  27 }
  28
  29 sub _build_sizeless_types {
  30    +{
  31       text => 1,
  32       blob => 1,
  33    }
  34 }
  35 sub _build_numeric_types {
  36    +{
  37       int                => 1,
  38       integer            => 1,
  39       tinyint            => 1,
  40       smallint           => 1,
  41       mediumint          => 1,
  42       bigint             => 1,
  43       'unsigned big int' => 1,
  44       int2               => 1,
  45       int8               => 1,
  46       numeric            => 1,
  47       decimal            => 1,
  48       boolean            => 1,
  49       real               => 1,
  50       double             => 1,
  51       'double precision' => 1,
  52       float              => 1,
  53    }
  54 }
  55
  56 sub _build_unquoted_defaults {
  57    +{
  58        NULL              => 1,
  59        'now()'           => 1,
  60        CURRENT_TIMESTAMP => 1,
  61    }
  62 }
  63
  64 sub nullable { () }
  65
  66 sub _ipk {
  67    my ($self, $field) = @_;
  68
  69    my $pk = $field->table->primary_key;
  70    my @pk_fields = $pk ? $pk->fields : ();
  71
  72    $field->is_primary_key && scalar @pk_fields == 1 &&
  73    ( $field->data_type =~ /int(eger)?$/i
  74     ||
  75    ( $field->data_type =~ /^number?$/i && $field->size !~ /,/ ) )
  76 }
  77
  78 sub field {
  79    my ($self, $field) = @_;
  80
  81    return join ' ',
  82       $self->field_comments($field),
  83       $self->field_name($field),
  84       ( $self->_ipk($field)
  85          ? $field->is_auto_increment
  86             ? ( 'INTEGER PRIMARY KEY AUTOINCREMENT' )
  87             : ( 'INTEGER PRIMARY KEY' )
  88          : ( $self->field_type($field) )
  89       ),
  90       $self->field_nullable($field),
  91       $self->field_default($field, {
  92          NULL => 1,
  93          'now()' => 1,
  94          'CURRENT_TIMESTAMP' => 1,
  95       }),
  96 }
  97
  98 1;
  99
 100 =head1 AUTHORS
 101
 102 See the included AUTHORS file:
 103 L<http://search.cpan.org/dist/SQL-Translator/AUTHORS>
 104
 105 =head1 COPYRIGHT
 106
 107 Copyright (c) 2012 the SQL::Translator L</AUTHORS> as listed above.
 108
 109 =head1 LICENSE
 110
 111 This code is free software and may be distributed under the same terms as Perl
 112 itself.
 113
 114 =cut