--- a/Lib/IMPL/declare.pm	Fri Feb 01 16:37:59 2013 +0400
+++ b/Lib/IMPL/declare.pm	Mon Feb 04 02:10:37 2013 +0400
@@ -105,18 +105,17 @@
     
     for ( my $i = 0 ; $i < @$props - 1 ; $i = $i + 2 ) {
         my ( $prop, $spec ) = @{$props}[ $i, $i + 1 ];
-
-        my $propInfo = IMPL::Class::PropertyInfo->new(
+        
+        $caller->ClassPropertyImplementor->Implement(
+            $spec,
             {
                 name     => $prop,
-                mutators => $spec,
                 class    => $caller,
                 access   => $prop =~ /^_/
                 ? ACCESS_PRIVATE
                 : ACCESS_PUBLIC
             }
         );
-        $propInfo->Implement();
     }
 }