1 package SQL::Translator::Generator::DDL::SQLite;
4 use SQL::Translator::Generator::Utils;
6 with 'SQL::Translator::Generator::Role::Quote';
7 with 'SQL::Translator::Generator::Role::DDL';
9 sub quote_chars { [qw(" ")] }
19 has sizeless_types => (
21 builder => '_build_sizeless_types',
24 sub _build_sizeless_types { +{ text => 1 } }
25 sub _build_numeric_types { +{ int => 1, tinyint => 1 } }
27 sub _build_unquoted_defaults {
31 CURRENT_TIMESTAMP => 1,
38 my ($self, $field) = @_;
40 my $pk = $field->table->primary_key;
41 my @pk_fields = $pk ? $pk->fields : ();
43 $field->is_primary_key && scalar @pk_fields == 1 &&
44 ( $field->data_type =~ /int(eger)?$/i
46 ( $field->data_type =~ /^number?$/i && $field->size !~ /,/ ) )
50 my ($self, $field) = @_;
54 $self->field_comments($field),
55 $self->field_name($field),
57 ? ( 'INTEGER PRIMARY KEY' )
58 : ( $self->field_type($field) )
60 $self->field_nullable($field),
61 $self->field_default($field),
65 my ($self, $field) = @_;
67 ($field->size && !$self->sizeless_types->{$field->data_type}
68 ? '(' . $field->size . ')'