X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=DBSchema%2FColumn.pm;h=d43d0b723fe85fed57175ebb23b3dac21ca9e5b9;hb=2541ecad01d97aa2769bca3cd9807e2f07bcecb7;hp=5f0d7d1b4af0e54ea221ceff55c2250c37146e71;hpb=f0bdd7cafeeb8515c035bc40acd2cd7d37b020ed;p=DBIx-DBSchema.git

diff --git a/DBSchema/Column.pm b/DBSchema/Column.pm
index 5f0d7d1..d43d0b7 100644
--- a/DBSchema/Column.pm
+++ b/DBSchema/Column.pm
@@ -511,6 +511,23 @@ sub sql_alter_column {
   @r;
 
 }
+=item sql_drop_column [ DBH ] 
+
+Returns a list of SQL statements to drop this column from an existing table.
+
+The optional database handle or DBI data source/username/password is not yet
+used.
+
+=cut
+
+sub sql_drop_column {
+ my( $self, $dbh ) = ( shift, _dbh(@_) );
+ 
+ my $table = $self->table_name;
+ my $name = $self->name;
+ 
+ ("ALTER TABLE $table DROP COLUMN $name"); # XXX what about indexes???
+}
 
 =back