Mercurial > pub > Impl

diff Lib/IMPL/Class/DirectPropertyInfo.pm @ 278:4ddb27ff4a0b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
core refactoring
author cin
date Mon, 04 Feb 2013 02:10:37 +0400
parents 8a5da17d7ef9
children
line wrap: on
line diff
--- a/Lib/IMPL/Class/DirectPropertyInfo.pm	Fri Feb 01 16:37:59 2013 +0400
+++ b/Lib/IMPL/Class/DirectPropertyInfo.pm	Mon Feb 04 02:10:37 2013 +0400
@@ -1,15 +1,10 @@
 package IMPL::Class::DirectPropertyInfo;
 use strict;
 
-use IMPL::Const qw(:prop);
-use IMPL::declare {
-	base => [
-	   'IMPL::Class::PropertyInfo' => '@_'
-	],
-	props => [
-	   fieldName => PROP_RW,
-	   directAccess => PROP_RW
-	]
-};
+use parent 'IMPL::Class::PropertyInfo';
+our %CTOR = ('IMPL::Class::PropertyInfo' => '@_');
+
+__PACKAGE__->mk_accessors(qw(fieldName directAccess));
+	
 
 1;
\ No newline at end of file