Mercurial > pub > Impl
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