Mercurial > pub > Impl
diff Lib/IMPL/Object/ArrayBased.pm @ 1:3b418b134d8c
ORM in progress
author | Sergey |
---|---|
date | Fri, 17 Jul 2009 13:30:46 +0400 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/Lib/IMPL/Object/ArrayBased.pm Fri Jul 17 13:30:46 2009 +0400 @@ -0,0 +1,19 @@ +package IMPL::Object::ArrayBased; +use strict; +use warnings; + +use base qw(IMPL::Object); + +sub new { + my $class = shift; + my $self = bless [], ref $class || $class; + $self->callCTOR(@_); + return $self; +} + +sub surrogate { + return bless [], ref $_[0] || $_; +} + +1; +