0.43_01 not released
- Incorporate CPAN::Changes::Spec-compliant Changes file from Neil Bowers
<neilb@cpan.org>, closes: CPAN#90023, thanks!
+ - Fix table creation broken by 0.42
0.42 2013-11-03 01:09:27 PST
- Basic foreign key support
use DBIx::DBSchema::Index;
use DBIx::DBSchema::ForeignKey;
-our $VERSION = '0.09';
+our $VERSION = '0.10';
our $DEBUG = 0;
=head1 NAME
$self->local_options
);
- if ( $self->_unique ) {
-
- warn "WARNING: DBIx::DBSchema::Table object for ". $self->name.
- " table has deprecated (non-named) unique indices\n";
-
- push @r, map {
- #my($index) = $self->name. "__". $_ . "_idx";
- #$index =~ s/,\s*/_/g;
- my $index = $self->name. $indexnum++;
- "CREATE UNIQUE INDEX $index ON ". $self->name. " ($_)\n"
- } $self->unique->sql_list;
-
- }
-
- if ( $self->_index ) {
-
- warn "WARNING: DBIx::DBSchema::Table object for ". $self->name.
- " table has deprecated (non-named) indices\n";
-
- push @r, map {
- #my($index) = $self->name. "__". $_ . "_idx";
- #$index =~ s/,\s*/_/g;
- my $index = $self->name. $indexnum++;
- "CREATE INDEX $index ON ". $self->name. " ($_)\n"
- } $self->index->sql_list;
- }
-
my %indices = $self->indices;
#push @r, map { $indices{$_}->sql_create_index( $self->name ) } keys %indices;
foreach my $index ( keys %indices ) {