Mercurial > pub > Impl

view 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
line wrap: on
line source

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;