1 package SQL::Translator::Generator::DDL::SQLite;
4 use SQL::Translator::Generator::Utils;
6 with 'SQL::Translator::Generator::Role::DDL';
8 sub _build_shim { SQL::Translator::Generator::Utils->new( quote_chars => q(") ) }
17 has sizeless_types => (
19 builder => '_build_sizeless_types',
22 sub _build_sizeless_types { +{ text => 1 } }
23 sub _build_numeric_types { +{ int => 1, tinyint => 1 } }
25 sub _build_unquoted_defaults {
29 CURRENT_TIMESTAMP => 1,
36 my ($self, $field) = @_;
39 $self->field_comments($field),
40 $self->field_name($field),
41 ( $field->is_auto_increment
42 ? ( 'INTEGER PRIMARY KEY' )
43 : ( $self->field_type($field) )
45 $self->field_nullable($field),
46 $self->field_default($field),
50 my ($self, $field) = @_;
52 ($field->size && !$self->sizeless_types->{$field->data_type}
53 ? '(' . $field->size . ')'
58 sub field_autoinc { ( $_[1]->is_auto_increment ? 'IDENTITY' : () ) }