Mercurial > pub > Impl
view Lib/IMPL/Object/Fields.pm @ 369:7c784144d2f1
Implemented object metadata class, cleanup
author | cin |
---|---|
date | Mon, 09 Dec 2013 17:35:34 +0400 |
parents | 4d0e1962161c |
children |
line wrap: on
line source
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;