Mercurial > pub > Impl

annotate 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 (2018-04-02)
parents
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;