comparison lib/IMPL/Class/ClassBuilder.pm @ 423:60c2892a577c ref20150831

working on base class system
author cin
date Mon, 02 Apr 2018 07:35:23 +0300
parents
children c27434cdd611
comparison
equal deleted inserted replaced
422:b0481c071bea 423:60c2892a577c
1 package IMPL::Class::ClassBuilder;
2 use strict;
3
4 sub new {
5 my ($self, $class) = @_;
6
7 return bless \$class, $self
8 }
9
10 sub DefineProperty {
11 my ($self, $pi) = @_;
12 }
13
14 sub DefineField {
15
16 }
17
18 sub DefineMethod {
19
20 }
21
22 1;