--- a/Lib/IMPL/declare.pm	Fri Dec 07 16:58:19 2012 +0400
+++ b/Lib/IMPL/declare.pm	Wed Dec 12 04:29:50 2012 +0400
@@ -89,27 +89,37 @@
 	  unless scalar(@$props) % 2 == 0;
 
 	if (@$props) {
-		for ( my $i = 0 ; $i < @$props - 1 ; $i = $i + 2 ) {
-			my ( $prop, $spec ) = @{$props}[ $i, $i + 1 ];
-
-			my $propInfo = IMPL::Class::PropertyInfo->new(
-				{
-					Name     => $prop,
-					Mutators => $spec,
-					Class    => $caller,
-					Access   => $prop =~ /^_/
-					? ACCESS_PRIVATE
-					: ACCESS_PUBLIC
-				}
-			);
-			$propInfo->Implement();
-		}
+	   	$self->_implementProps($props,$caller);
 	}
 	
+    if ($args->{_implement}) {
+        $self->_implementProps($caller->abstractProps,$caller);     
+    }	
+	
 	$IMPL::require::level--;
 	delete $IMPL::require::PENDING{$caller};
 }
 
+sub _implementProps {
+    my ($self, $props, $caller) = @_;
+    
+    for ( my $i = 0 ; $i < @$props - 1 ; $i = $i + 2 ) {
+        my ( $prop, $spec ) = @{$props}[ $i, $i + 1 ];
+
+        my $propInfo = IMPL::Class::PropertyInfo->new(
+            {
+                Name     => $prop,
+                Mutators => $spec,
+                Class    => $caller,
+                Access   => $prop =~ /^_/
+                ? ACCESS_PRIVATE
+                : ACCESS_PUBLIC
+            }
+        );
+        $propInfo->Implement();
+    }
+}
+
 1;
 
 __END__