projects
/
dbsrgits/SQL-Translator-2.0-ish.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
remove all columns before adding new ones via ->fields or ->columns
[dbsrgits/SQL-Translator-2.0-ish.git]
/
lib
/
SQL
/
Translator
/
Object
/
Table.pm
diff --git
a/lib/SQL/Translator/Object/Table.pm
b/lib/SQL/Translator/Object/Table.pm
index
b6b78d6
..
5b572e7
100644
(file)
--- a/
lib/SQL/Translator/Object/Table.pm
+++ b/
lib/SQL/Translator/Object/Table.pm
@@
-28,6
+28,7
@@
class SQL::Translator::Object::Table extends SQL::Translator::Object is dirty {
get_column => 'get',
add_column => 'set',
remove_column => 'delete',
+ clear_columns => 'clear',
},
default => sub { my %hash = (); tie %hash, 'Tie::IxHash'; return \%hash },
);