--- a/Lib/IMPL/Object.pm	Fri Feb 01 16:37:59 2013 +0400
+++ b/Lib/IMPL/Object.pm	Mon Feb 04 02:10:37 2013 +0400
@@ -2,8 +2,9 @@
 use strict;
 
 use parent qw(IMPL::Object::Abstract);
-require IMPL::Class::Property::Direct;
-use IMPL::Const qw(:prop);
+use IMPL::require {
+    ClassPropertyImplementor => 'IMPL::Code::DirectPropertyImplementor'
+};
 
 sub surrogate {
     bless {}, ref $_[0] || $_[0];
@@ -17,22 +18,6 @@
     $self;
 }
 
-sub _PropertyImplementor {
-    'IMPL::Class::Property::Direct'
-}
-
-sub ImplementProperty {
-	my ($self,$name,$attributes) = @_;
-	
-	$attributes = {
-        get => $attributes & PROP_GET,
-        set => $attributes & PROP_SET,
-        isList => $attributes & PROP_LIST
-    } unless ref $attributes;
-    
-    $self->_ProppertyImplementor->Implement($name,$attributes);
-}
-
 1;
 
 __END__