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 |