Mercurial > pub > Impl

view lib/IMPL/Class/FieldInfo.pm @ 426:eed50c01e758 ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Split off the core module, added Dist-Zilla config
author cin
date Tue, 15 May 2018 00:51:01 +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;