annotate lib/IMPL/Class/FieldInfo.pm @ 423:60c2892a577c
ref20150831
working on base class system
author |
cin |
date |
Mon, 02 Apr 2018 07:35:23 +0300 (2018-04-02) |
parents |
|
children |
|
rev |
line source |
423
|
1 package IMPL::Class::FieldInfo;
|
|
2 use strict;
|
|
3
|
|
4 use IMPL::declare {
|
|
5 base => [
|
|
6 'IMPL::Class::MemberInfo' => '@_'
|
|
7 ]
|
|
8 };
|
|
9
|
|
10 use fields qw( fieldType backingFieldName generated);
|
|
11
|
|
12 sub CTOR {
|
|
13 my ( $this, %args ) = @_;
|
|
14
|
|
15 $this->{$_} = $args{$_}
|
|
16 foreach grep exists $args{$_} qw( fieldType backingFieldName generated);
|
|
17 }
|
|
18
|
|
19 1;
|