comparison 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
comparison
equal deleted inserted replaced
163:6ce1f052b90a 164:eb3e9861a761
56 my ($this,$table) = @_; 56 my ($this,$table) = @_;
57 57
58 UNIVERSAL::isa($table,'IMPL::SQL::Schema::Table') ? $table : $this->{$Tables}{$table}; 58 UNIVERSAL::isa($table,'IMPL::SQL::Schema::Table') ? $table : $this->{$Tables}{$table};
59 } 59 }
60 60
61 sub GetTable {
62 my ($this,$tableName) = @_;
63 return $this->{$Tables}{$tableName};
64 }
65
66 sub RenameTable {
67 my ($this,$oldName,$newName) = @_;
68
69
70 }
71
61 sub Dispose { 72 sub Dispose {
62 my ($this) = @_; 73 my ($this) = @_;
63 74
64 $_->Dispose foreach values %{$this->{$Tables}}; 75 $_->Dispose foreach values %{$this->{$Tables}};
65 76