Mercurial > pub > Impl
view Lib/IMPL/Object/Fields.pm @ 274:8d36073411b1
+Added AutoDispose class
*code cleanups
author | cin |
---|---|
date | Wed, 30 Jan 2013 03:30:28 +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;