diff lib/IMPL/Object/Fields.pm @ 407:c6e90e02dd17 ref20150831

renamed Lib->lib
author cin
date Fri, 04 Sep 2015 19:40:23 +0300
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/IMPL/Object/Fields.pm	Fri Sep 04 19:40:23 2015 +0300
@@ -0,0 +1,26 @@
+package IMPL::Object::Fields;
+use strict;
+use warnings;
+
+use parent qw(IMPL::Object::Abstract);
+
+sub new {
+    my $class = shift;
+    
+    $class = ref $class || $class;
+    
+    my $this = fields::new($class);
+    $this->callCTOR(@_);
+    
+    return $this;
+}
+
+sub surrogate {
+    my $class = shift;
+    
+    $class = ref $class || $class;
+    
+    return fields::new($class);
+}
+
+1;