implement 'use aliased'

[dbsrgits/SQL-Translator-2.0-ish.git] / lib / SQL / Translator / Producer.pm

package SQL::Translator::Producer;
use namespace::autoclean;
use Moose;
use MooseX::Types::Moose qw(Str);
use SQL::Translator::Types qw(Schema);

has 'schema' => (
    isa => Schema,
    is => 'rw',
    required => 1
);

sub produce {
    my $self = shift;
    my $schema = $self->schema;

    $self->_create_table($_) for values %{$schema->tables};
}

sub _create_table {
    my $self = shift;
    my $table = shift;

    my $no_comments    = 0;
    my $add_drop_table = 1;
    my $sqlite_version = 0;

    my $create_table;
    my (@column_defs, @index_defs, @constraint_defs);

    $create_table .= 'DROP TABLE '   . $table->name . ";\n" if $add_drop_table;
    $create_table .= 'CREATE TABLE ' . $table->name . " (\n";

    push @column_defs, $self->_create_column($_) for values %{$table->columns};
    $create_table .= join(",\n", map { '  ' . $_ } @column_defs ) . "\n)";
    print $create_table . "\n";
}

sub _create_column {
    my $self = shift;
    my $column = shift;

    my $column_def;
    $column_def  = $column->name . ' ' . $column->data_type;
    $column_def .= '(' . $column->size . ')' if $column->size;
    $column_def .= ' NOT NULL' unless $column->is_nullable;
    $column_def;
}

__PACKAGE__->meta->make_immutable;

1;