Mercurial > pub > Impl
annotate Lib/IMPL/Object/ArrayObject.pm @ 348:f116cd9fe7d9
working on TTView: pre-alpha version
author | cin |
---|---|
date | Thu, 03 Oct 2013 19:48:57 +0400 |
parents | 4267a2ac3d46 |
children |
rev | line source |
---|---|
49 | 1 package IMPL::Object::ArrayObject; |
2 use strict; | |
3 use warnings; | |
4 | |
166 | 5 use parent qw(IMPL::Object::Abstract); |
49 | 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 |