--- a/Lib/IMPL/SQL/Schema/Constraint.pm	Fri Feb 01 16:37:59 2013 +0400
+++ b/Lib/IMPL/SQL/Schema/Constraint.pm	Mon Feb 04 02:10:37 2013 +0400
@@ -2,18 +2,19 @@
 use strict;
 use warnings;
 
-use IMPL::lang qw(:declare is isclass);
-
-use parent qw(IMPL::Object IMPL::Object::Disposable);
-
-use IMPL::Class::Property::Direct;
-
-BEGIN {
-    public _direct property name => PROP_GET;
-    public _direct property table => PROP_GET;
-}
-
-public property columns => PROP_GET | PROP_LIST | PROP_OWNERSET;
+use IMPL::lang qw(is isclass);
+use IMPL::Const qw(:prop);
+use IMPL::declare {
+    base => [
+        'IMPL::Object' => undef,
+        'IMPL::Object::Disposable' => undef
+    ],
+    props => [
+        name => PROP_RO | PROP_DIRECT,
+        table => PROP_RO | PROP_DIRECT,
+        columns => PROP_RO | PROP_LIST
+    ]
+};
 
 my %aliases;