Mercurial > pub > Impl
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;