annotate Lib/IMPL/Object/ArrayObject.pm @ 59:0f3e369553bd

Rewritten property implementation (probably become slower but more flexible) Configuration infrastructure in progress (in the aspect of the lazy activation) Initial concept for the code generator
author wizard
date Tue, 09 Mar 2010 02:50:45 +0300
parents 16ada169ca75
children 4267a2ac3d46
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 2
diff changeset
1 package IMPL::Object::ArrayObject;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 2
diff changeset
2 use strict;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 2
diff changeset
3 use warnings;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 2
diff changeset
4
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 2
diff changeset
5 use base qw(IMPL::Object::Abstract);
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 2
diff changeset
6
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 2
diff changeset
7 sub new {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 2
diff changeset
8 my $class = shift;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 2
diff changeset
9 my $self = bless [], ref $class || $class;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 2
diff changeset
10 $self->callCTOR(@_);
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 2
diff changeset
11 return $self;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 2
diff changeset
12 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 2
diff changeset
13
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 2
diff changeset
14 sub surrogate {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 2
diff changeset
15 return bless [], ref $_[0] || $_;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 2
diff changeset
16 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 2
diff changeset
17
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 2
diff changeset
18 1;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 2
diff changeset
19