Mercurial > pub > Impl
annotate Lib/IMPL/Class/DirectPropertyInfo.pm @ 276:8a5da17d7ef9
*IMPL::Class refactoring property definition mechanism (incomplete).
| author | sergey |
|---|---|
| date | Thu, 31 Jan 2013 17:37:44 +0400 |
| parents | |
| children | 4ddb27ff4a0b |
| rev | line source |
|---|---|
|
276
8a5da17d7ef9
*IMPL::Class refactoring property definition mechanism (incomplete).
sergey
parents:
diff
changeset
|
1 package IMPL::Class::DirectPropertyInfo; |
|
8a5da17d7ef9
*IMPL::Class refactoring property definition mechanism (incomplete).
sergey
parents:
diff
changeset
|
2 use strict; |
|
8a5da17d7ef9
*IMPL::Class refactoring property definition mechanism (incomplete).
sergey
parents:
diff
changeset
|
3 |
|
8a5da17d7ef9
*IMPL::Class refactoring property definition mechanism (incomplete).
sergey
parents:
diff
changeset
|
4 use IMPL::Const qw(:prop); |
|
8a5da17d7ef9
*IMPL::Class refactoring property definition mechanism (incomplete).
sergey
parents:
diff
changeset
|
5 use IMPL::declare { |
|
8a5da17d7ef9
*IMPL::Class refactoring property definition mechanism (incomplete).
sergey
parents:
diff
changeset
|
6 base => [ |
|
8a5da17d7ef9
*IMPL::Class refactoring property definition mechanism (incomplete).
sergey
parents:
diff
changeset
|
7 'IMPL::Class::PropertyInfo' => '@_' |
|
8a5da17d7ef9
*IMPL::Class refactoring property definition mechanism (incomplete).
sergey
parents:
diff
changeset
|
8 ], |
|
8a5da17d7ef9
*IMPL::Class refactoring property definition mechanism (incomplete).
sergey
parents:
diff
changeset
|
9 props => [ |
|
8a5da17d7ef9
*IMPL::Class refactoring property definition mechanism (incomplete).
sergey
parents:
diff
changeset
|
10 fieldName => PROP_RW, |
|
8a5da17d7ef9
*IMPL::Class refactoring property definition mechanism (incomplete).
sergey
parents:
diff
changeset
|
11 directAccess => PROP_RW |
|
8a5da17d7ef9
*IMPL::Class refactoring property definition mechanism (incomplete).
sergey
parents:
diff
changeset
|
12 ] |
|
8a5da17d7ef9
*IMPL::Class refactoring property definition mechanism (incomplete).
sergey
parents:
diff
changeset
|
13 }; |
|
8a5da17d7ef9
*IMPL::Class refactoring property definition mechanism (incomplete).
sergey
parents:
diff
changeset
|
14 |
|
8a5da17d7ef9
*IMPL::Class refactoring property definition mechanism (incomplete).
sergey
parents:
diff
changeset
|
15 1; |
