diff Lib/IMPL/Class/Property/Base.pm @ 276:8a5da17d7ef9

*IMPL::Class refactoring property definition mechanism (incomplete).
author sergey
date Thu, 31 Jan 2013 17:37:44 +0400
parents 6253872024a4
children 6585464c4664
line wrap: on
line diff
--- a/Lib/IMPL/Class/Property/Base.pm	Thu Jan 31 02:18:31 2013 +0400
+++ b/Lib/IMPL/Class/Property/Base.pm	Thu Jan 31 17:37:44 2013 +0400
@@ -107,7 +107,11 @@
 }
 
 sub Implement {
-    my ($self,$spec) = @_;
+    my ($self, $name, $spec) = @_;
+    
+    {
+    	name => 
+    }
 }
 
 # extract from property info: class, name, get_accessor, set_accessor, validator