Mercurial > pub > Impl

annotate lib/IMPL/Class/FieldInfo.pm @ 425:c27434cdd611 ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync
author cin
date Tue, 03 Apr 2018 19:30:01 +0300
parents 60c2892a577c
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
423
60c2892a577c working on base class system
cin
parents:
diff changeset
1 package IMPL::Class::FieldInfo;
60c2892a577c working on base class system
cin
parents:
diff changeset
2 use strict;
60c2892a577c working on base class system
cin
parents:
diff changeset
3
60c2892a577c working on base class system
cin
parents:
diff changeset
4 use IMPL::declare {
60c2892a577c working on base class system
cin
parents:
diff changeset
5 base => [
60c2892a577c working on base class system
cin
parents:
diff changeset
6 'IMPL::Class::MemberInfo' => '@_'
60c2892a577c working on base class system
cin
parents:
diff changeset
7 ]
60c2892a577c working on base class system
cin
parents:
diff changeset
8 };
60c2892a577c working on base class system
cin
parents:
diff changeset
9
60c2892a577c working on base class system
cin
parents:
diff changeset
10 use fields qw( fieldType backingFieldName generated);
60c2892a577c working on base class system
cin
parents:
diff changeset
11
60c2892a577c working on base class system
cin
parents:
diff changeset
12 sub CTOR {
60c2892a577c working on base class system
cin
parents:
diff changeset
13 my ( $this, %args ) = @_;
60c2892a577c working on base class system
cin
parents:
diff changeset
14
60c2892a577c working on base class system
cin
parents:
diff changeset
15 $this->{$_} = $args{$_}
60c2892a577c working on base class system
cin
parents:
diff changeset
16 foreach grep exists $args{$_} qw( fieldType backingFieldName generated);
60c2892a577c working on base class system
cin
parents:
diff changeset
17 }
60c2892a577c working on base class system
cin
parents:
diff changeset
18
60c2892a577c working on base class system
cin
parents:
diff changeset
19 1;