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_autoinc {
  79     my ($self, $field) = @_;
  80
  81     return (
  82       (
  83         ($field->extra->{auto_increment_type}||'') eq 'monotonic'
  84           and
  85         $self->_ipk($field)
  86           and
  87         $field->is_auto_increment
  88       )
  89       ? 'AUTOINCREMENT'
  90       : ''
  91     );
  92 }
  93
  94 sub field {
  95    my ($self, $field) = @_;
  96
  97
  98    return join ' ',
  99       $self->field_comments($field),
 100       $self->field_name($field),
 101       ( $self->_ipk($field)
 102          ? ( 'INTEGER PRIMARY KEY' )
 103          : ( $self->field_type($field) )
 104       ),
 105       ( $self->field_autoinc($field) || () ),
 106       $self->field_nullable($field),
 107       $self->field_default($field, {
 108          NULL => 1,
 109          'now()' => 1,
 110          'CURRENT_TIMESTAMP' => 1,
 111       }),
 112 }
 113
 114 1;
 115
 116 =head1 AUTHORS
 117
 118 See the included AUTHORS file:
 119 L<http://search.cpan.org/dist/SQL-Translator/AUTHORS>
 120
 121 =head1 COPYRIGHT
 122
 123 Copyright (c) 2012 the SQL::Translator L</AUTHORS> as listed above.
 124
 125 =head1 LICENSE
 126
 127 This code is free software and may be distributed under the same terms as Perl
 128 itself.
 129
 130 =cut