1 package SQL::Translator::Generator::DDL::SQLite;
5 SQL::Translator::Generator::DDL::SQLite - A Moo based SQLite DDL generation
10 I<documentation volunteers needed>
15 has quote_chars => (is=>'ro', default=>sub { +[qw(" ")] } );
17 with 'SQL::Translator::Generator::Role::Quote';
18 with 'SQL::Translator::Generator::Role::DDL';
29 sub _build_sizeless_types {
35 sub _build_numeric_types {
43 'unsigned big int' => 1,
51 'double precision' => 1,
56 sub _build_unquoted_defaults {
60 CURRENT_TIMESTAMP => 1,
67 my ($self, $field) = @_;
69 my $pk = $field->table->primary_key;
70 my @pk_fields = $pk ? $pk->fields : ();
72 $field->is_primary_key && scalar @pk_fields == 1 &&
73 ( $field->data_type =~ /int(eger)?$/i
75 ( $field->data_type =~ /^number?$/i && $field->size !~ /,/ ) )
79 my ($self, $field) = @_;
83 ($field->extra->{auto_increment_type}||'') eq 'monotonic'
87 $field->is_auto_increment
95 my ($self, $field) = @_;
99 $self->field_comments($field),
100 $self->field_name($field),
101 ( $self->_ipk($field)
102 ? ( 'INTEGER PRIMARY KEY' )
103 : ( $self->field_type($field) )
105 ( $self->field_autoinc($field) || () ),
106 $self->field_nullable($field),
107 $self->field_default($field, {
110 'CURRENT_TIMESTAMP' => 1,
118 See the included AUTHORS file:
119 L<http://search.cpan.org/dist/SQL-Translator/AUTHORS>
123 Copyright (c) 2012 the SQL::Translator L</AUTHORS> as listed above.
127 This code is free software and may be distributed under the same terms as Perl