->{columns};
foreach my $c (values %{$cols}) {
- my $is_auto_increment = $c->{TYPE_NAME} =~ s#(\(\))? identity##i;
+ my $is_auto_increment = $c->{TYPE_NAME} =~ s#(\(\))? identity##i;
my $f = $table->add_field(
name => $c->{COLUMN_NAME},
data_type => $c->{TYPE_NAME},
$f->is_nullable($c->{NULLABLE} == 1);
$f->is_auto_increment($is_auto_increment);
if ( defined $c->{COLUMN_DEF}) {
- $c->{COLUMN_DEF} =~ s#\('?(.*?)'?\)#$1#;
- $f->default_value($c->{COLUMN_DEF});
+ $c->{COLUMN_DEF} =~ s#\('?(.*?)'?\)#$1#;
+ $f->default_value($c->{COLUMN_DEF});
}
}
# add in foreign keys
$h = $dbh->selectall_hashref("sp_fkeys NULL,
\@fktable_name = '$table_info->{TABLE_NAME}'", 'FK_NAME');
- foreach my $fk ( values %{$h} ) {
- my $constraint = $table->add_constraint( name => $fk->{FK_NAME},
- fields => [$fk->{FKCOLUMN_NAME}],
- );
- $constraint->type("FOREIGN_KEY");
- $constraint->on_delete(
- $fk->{DELETE_RULE} == 0 ? "CASCADE" :
- $fk->{DELETE_RULE} == 1 ? "NO ACTION" : "SET_NULL"
- );
- $constraint->on_update(
- $fk->{UPDATE_RULE} == 0 ? "CASCADE" :
- $fk->{UPDATE_RULE} == 1 ? "NO ACTION" : "SET_NULL"
- );
- $constraint->reference_table($fk->{PKTABLE_NAME});
- }
+ foreach my $fk ( values %{$h} ) {
+ my $constraint = $table->add_constraint( name => $fk->{FK_NAME},
+ fields => [$fk->{FKCOLUMN_NAME}],
+ );
+ $constraint->type("FOREIGN_KEY");
+ $constraint->on_delete(
+ $fk->{DELETE_RULE} == 0 ? "CASCADE" :
+ $fk->{DELETE_RULE} == 1 ? "NO ACTION" : "SET_NULL"
+ );
+ $constraint->on_update(
+ $fk->{UPDATE_RULE} == 0 ? "CASCADE" :
+ $fk->{UPDATE_RULE} == 1 ? "NO ACTION" : "SET_NULL"
+ );
+ $constraint->reference_table($fk->{PKTABLE_NAME});
+ }
# add in any indexes ... how do we tell if the index has
# already been created as part of a primary key or other
}
}
} elsif ($table_info->{TABLE_TYPE} eq 'VIEW') {
- next if $table_info->{TABLE_NAME} eq 'sysconstraints'
- || $table_info->{TABLE_NAME} eq 'syssegments';
- next if !$stuff->{view}->{$table_info->{TABLE_NAME}}->{text};
+ next if $table_info->{TABLE_NAME} eq 'sysconstraints'
+ || $table_info->{TABLE_NAME} eq 'syssegments';
+ next if !$stuff->{view}->{$table_info->{TABLE_NAME}}->{text};
my $view = $schema->add_view(
name =>
$table_info->{TABLE_NAME},
}
foreach my $p (values %{$stuff->{procedures}}) {
- next if !$p->{text};
+ next if !$p->{text};
my $proc = $schema->add_procedure(
name => $p->{name},
owner => $p->{PROCEDURE_OWNER},