diff 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
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/IMPL/Class/ClassBuilder.pm	Mon Apr 02 07:35:23 2018 +0300
@@ -0,0 +1,22 @@
+package IMPL::Class::ClassBuilder;
+use strict;
+
+sub new {
+    my ($self, $class) = @_;
+    
+    return bless \$class, $self	
+}
+
+sub DefineProperty {
+	my ($self, $pi) = @_;
+}
+
+sub DefineField {
+	
+}
+
+sub DefineMethod {
+	
+}
+
+1;
\ No newline at end of file