$schema->add_table($table);
$table->extra({ temporary => 1 }) if $tdata->{'temporary'};
- $table->comments( $tdata->{'comments'}->flatten ) if $tdata->{comments};
+ $table->comments( [ $tdata->{'comments'}->flatten ]) if $tdata->{comments};
my @fields = sort { $tdata->{'fields'}{ $a }{'order'} <=> $tdata->{'fields'}{ $b }{'order'} } keys %{ $tdata->{'fields'} };
$field->comments($fdata->{comments});
$table->add_column($field);
- $table->primary_key($field->name) if $fdata->{is_primary_key};
+ $field->is_primary_key(1) if $fdata->{is_primary_key};
for my $cdata ( @{ $fdata->{constraints} } ) {
next unless lc $cdata->{type} eq 'foreign_key';