" '$_', ".
"'". $self->table($table)->column($_)->type. "', ".
"'". $self->table($table)->column($_)->null. "', ".
- "'". $self->table($table)->column($_)->length. "'\n"
+ "'". $self->table($table)->column($_)->length. "',\n"
} $self->table($table)->columns
).
" ],\n".
sub pretty_read {
my($proto, $href) = @_;
- my $schema = proto->new( map {
+ my $schema = $proto->new( map {
my(@columns);
while ( @{$href->{$_}{'columns'}} ) {
push @columns, DBIx::DBSchema::Column->new(
sub sql_create_table {
my($self,$datasrc)=@_;
- warn $datasrc;
my(@columns)=map { $self->column($_)->line($datasrc) } $self->columns;
push @columns, "PRIMARY KEY (". $self->primary_key. ")"
if $self->primary_key;
- if ( $datasrc =~ /^dbd:mysql:/i ) { #yucky mysql hack
+ if ( $datasrc =~ /^dbi:mysql:/i ) { #yucky mysql hack
push @columns, map "UNIQUE ($_)", $self->unique->sql_list;
push @columns, map "INDEX ($_)", $self->index->sql_list;
}