Mercurial > pub > Impl

comparison 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
comparison
equal deleted inserted replaced
277:6585464c4664 278:4ddb27ff4a0b
1 package IMPL::Class::DirectPropertyInfo; 1 package IMPL::Class::DirectPropertyInfo;
2 use strict; 2 use strict;
3 3
4 use IMPL::Const qw(:prop); 4 use parent 'IMPL::Class::PropertyInfo';
5 use IMPL::declare { 5 our %CTOR = ('IMPL::Class::PropertyInfo' => '@_');
6 base => [ 6
7 'IMPL::Class::PropertyInfo' => '@_' 7 __PACKAGE__->mk_accessors(qw(fieldName directAccess));
8 ], 8
9 props => [
10 fieldName => PROP_RW,
11 directAccess => PROP_RW
12 ]
13 };
14 9
15 1; 10 1;