package DBIx::DBSchema::Column;
use strict;
-use vars qw(@ISA);
+use vars qw(@ISA $VERSION);
#use Carp;
#use Exporter;
#@ISA = qw(Exporter);
@ISA = qw();
+$VERSION = '0.02';
+
=head1 NAME
DBIx::DBSchema::Column - Column objects
$null =~ s/^NULL$//;
}
- my @r = join(' ',
+ my $r = join(' ',
$self->name,
- $type.
- ( defined($self->length) && $self->length ? '('.$self->length.')' : '' ),
+ $type. ( ( defined($self->length) && $self->length )
+ ? '('.$self->length.')'
+ : ''
+ ),
$null,
( ( defined($default) && $default ne '' )
? 'DEFAULT '. $default
: ''
),
- ( ( $driver eq 'mysql' )
+ ( ( $driver eq 'mysql' && defined($self->local) )
? $self->local
: ''
),
);
$dbh->disconnect if $created_dbh;
- @r;
+ $r;
}
use vars qw(@ISA %create_params);
#use Carp;
#use Exporter;
-use DBIx::DBSchema::Column;
+use DBIx::DBSchema::Column 0.02;
use DBIx::DBSchema::ColGroup::Unique;
use DBIx::DBSchema::ColGroup::Index;
# #change it back afterwords :/
# }
- my(@columns)=map { $self->column($_)->line($dbh) } $self->columns;
+ my @columns = map { $self->column($_)->line($dbh) } $self->columns;
push @columns, "PRIMARY KEY (". $self->primary_key. ")"
#if $self->primary_key && $driver ne 'Pg';
BEGIN { $| = 1; print "1..1\n"; }
END {print "not ok 1\n" unless $loaded;}
use DBIx::DBSchema;
+use DBIx::DBSchema::DBD::Pg;
+use DBIx::DBSchema::DBD::mysql;
$loaded = 1;
print "ok 1\n";