Mercurial > pub > Impl
comparison Lib/IMPL/Object/ArrayBased.pm @ 1:3b418b134d8c
ORM in progress
author | Sergey |
---|---|
date | Fri, 17 Jul 2009 13:30:46 +0400 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
0:03e58a454b20 | 1:3b418b134d8c |
---|---|
1 package IMPL::Object::ArrayBased; | |
2 use strict; | |
3 use warnings; | |
4 | |
5 use base qw(IMPL::Object); | |
6 | |
7 sub new { | |
8 my $class = shift; | |
9 my $self = bless [], ref $class || $class; | |
10 $self->callCTOR(@_); | |
11 return $self; | |
12 } | |
13 | |
14 sub surrogate { | |
15 return bless [], ref $_[0] || $_; | |
16 } | |
17 | |
18 1; | |
19 |