--- a/Lib/IMPL/Object/Accessor.pm	Fri Feb 01 16:37:59 2013 +0400
+++ b/Lib/IMPL/Object/Accessor.pm	Mon Feb 04 02:10:37 2013 +0400
@@ -1,8 +1,16 @@
 package IMPL::Object::Accessor;
 use strict;
-use parent qw(IMPL::Object::Abstract Class::Accessor IMPL::Class::Meta);
+
+use parent qw(
+    IMPL::Object::Abstract
+    Class::Accessor
+);
 
-require IMPL::Class::Property::Accessor;
+use IMPL::require {
+    ClassPropertyImplementor => '-IMPL::Code::AccessorPropertyImplementor'
+};
+
+require IMPL::Code::AccessorPropertyImplementor;
 
 sub new {
     my $class = shift;
@@ -15,10 +23,4 @@
     $_[0]->Class::Accessor::new;
 }
 
-__PACKAGE__->static_accessor( propertyInfoClass => 'IMPL::Class::AccessorPropertyInfo' );
-
-sub _PropertyImplementor {
-    'IMPL::Class::Property::Accessor'
-}
-
 1;