Mercurial > pub > Impl

comparison lib/IMPL/Class/FieldInfo.pm @ 423:60c2892a577c ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
working on base class system
author cin
date Mon, 02 Apr 2018 07:35:23 +0300
parents
children
comparison
equal deleted inserted replaced
422:b0481c071bea 423:60c2892a577c
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;