--- a/Lib/IMPL/SQL/Schema.pm	Wed Dec 29 16:55:24 2010 +0300
+++ b/Lib/IMPL/SQL/Schema.pm	Tue Mar 15 02:32:42 2011 +0300
@@ -1,7 +1,12 @@
 use strict;
 package IMPL::SQL::Schema;
 
-use base qw(IMPL::Object IMPL::Object::Disposable IMPL::Object::Autofill);
+use base qw(
+	IMPL::Object
+	IMPL::Object::Disposable
+	IMPL::Object::Autofill
+	IMPL::Object::Clonable
+);
 use IMPL::Class::Property;
 use IMPL::Class::Property::Direct;
 
@@ -47,6 +52,12 @@
     return 1;
 }
 
+sub ResolveTable {
+	my ($this,$table) = @_;
+	
+	UNIVERSAL::isa($table,'IMPL::SQL::Schema::Table') ? $table : $this->{$Tables}{$table};
+}
+
 sub Dispose {
     my ($this) = @_;
     
@@ -64,6 +75,8 @@
 
 =head1 SINOPSYS
 
+=begin code
+
 require IMPL::SQL::Schema;
 use IMPL::SQL::Types qw(Varchar Integer);
 
@@ -84,7 +97,9 @@
 
 # and finally don't forget to
 
-$dbSchema->Dispoce();
+$dbSchema->Dispose();
+
+=end code
 
 =head1 DESCRIPTION