Mercurial > pub > Impl
diff lib/IMPL/Class/FieldInfo.pm @ 423:60c2892a577c ref20150831
working on base class system
| author | cin |
|---|---|
| date | Mon, 02 Apr 2018 07:35:23 +0300 |
| parents | |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lib/IMPL/Class/FieldInfo.pm Mon Apr 02 07:35:23 2018 +0300 @@ -0,0 +1,19 @@ +package IMPL::Class::FieldInfo; +use strict; + +use IMPL::declare { + base => [ + 'IMPL::Class::MemberInfo' => '@_' + ] +}; + +use fields qw( fieldType backingFieldName generated); + +sub CTOR { + my ( $this, %args ) = @_; + + $this->{$_} = $args{$_} + foreach grep exists $args{$_} qw( fieldType backingFieldName generated); +} + +1;