unless (defined $parser) {
return $translator->error("Error instantiating Parse::RecDescent ".
- "instance: Bad grammer");
+ "instance: Bad grammar");
}
my $result = $parser->startrule($data);
my $schema = $translator->schema;
my @tables =
map { $_->[1] }
-# sort { $a->[0] <=> $b->[0] }
+ sort { $a->[0] <=> $b->[0] }
map { [ $result->{'tables'}{ $_ }->{'order'}, $_ ] }
keys %{ $result->{'tables'} };
$constraint = ForeignKey->new({ name => $cdata->{name} || 'foreign_key',
table => $table,
reference_table => $cdata->{reference_table},
- reference_columns => $cdata->{reference_fields},
+ reference_columns => ref $cdata->{reference_fields} ? $cdata->{reference_fields} : [ $cdata->{reference_fields} ],
on_delete => $cdata->{on_delete} || $cdata->{on_delete_do},
on_update => $cdata->{on_update} || $cdata->{on_update_do} });
$table->get_column($_)->is_foreign_key(1) for @{$cdata->{fields}};
$constraint->add_column($table->get_column($_)) for @{$cdata->{fields}};
}
$table->add_constraint($constraint);
-=cut
- my $constraint = Constraint->new({
- name => $cdata->{'name'},
- type => $cdata->{'type'},
- columns => $cdata->{'fields'},
- reference_table => $cdata->{'reference_table'},
- reference_fields => $cdata->{'reference_fields'},
- match_type => $cdata->{'match_type'} || '',
- on_delete => $cdata->{'on_delete'} || $cdata->{'on_delete_do'},
- on_update => $cdata->{'on_update'} || $cdata->{'on_update_do'},
- table => $table,
- });
- $table->add_constraint($constraint);
-=cut
}
}