diff Lib/IMPL/SQL/Schema.pm @ 164:eb3e9861a761

SQL traits in progress
author wizard
date Mon, 28 Mar 2011 01:36:24 +0400
parents 6ce1f052b90a
children 76515373dac0
line wrap: on
line diff
--- a/Lib/IMPL/SQL/Schema.pm	Tue Mar 15 02:32:42 2011 +0300
+++ b/Lib/IMPL/SQL/Schema.pm	Mon Mar 28 01:36:24 2011 +0400
@@ -58,6 +58,17 @@
 	UNIVERSAL::isa($table,'IMPL::SQL::Schema::Table') ? $table : $this->{$Tables}{$table};
 }
 
+sub GetTable {
+	my ($this,$tableName) = @_;
+	return $this->{$Tables}{$tableName};
+}
+
+sub RenameTable {
+	my ($this,$oldName,$newName) = @_;
+	
+	
+}
+
 sub Dispose {
     my ($this) = @_;