1 package SQL::Translator::Producer;
2 use namespace::autoclean;
4 use MooseX::Types::Moose qw(Str);
5 use SQL::Translator::Types qw(Schema);
17 my $schema = $self->schema;
19 my $tables = $schema->tables;
20 foreach my $tname (keys %$tables) {
21 $self->_create_table($tables->{$tname});
30 my $add_drop_table = 1;
31 my $sqlite_version = 0;
35 $create_table .= 'DROP TABLE ' . $table->name . ";\n" if $add_drop_table;
36 $create_table .= "CREATE TABLE " . $table->name . " (\n";
38 my $columns = $table->columns;
39 foreach my $cname (keys %$columns) {
40 my $column = $columns->{$cname};
41 $create_table .= ' ' . $column->name . ' ' . $column->data_type;
42 $create_table .= '(' . $column->size . ')' if $column->size;
43 $create_table .= ' NOT NULL' unless $column->is_nullable;
44 $create_table .= ",\n";
46 $create_table =~ s/,$//;
47 $create_table .= ");";
48 print $create_table . "\n";
51 __PACKAGE__->meta->make_immutable;