Mercurial > pub > Impl

view lib/IMPL/Class/FieldInfo.pm @ 427:09e0086a82a7 ref20150831 tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge
author cin
date Tue, 15 May 2018 00:51:33 +0300
parents 60c2892a577c
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;