Mercurial > pub > Impl
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 |
