annotate Lib/IMPL/Object/Accessor.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 |
b0c068da93ac |
rev |
line source |
49
|
1 package IMPL::Object::Accessor;
|
|
2 use strict;
|
|
3 use base qw(IMPL::Object::Abstract Class::Accessor IMPL::Class::Meta);
|
|
4
|
|
5 sub new {
|
|
6 my $class = shift;
|
|
7 my $self = $class->Class::Accessor::new( @_ == 1 && ref $_[0] && UNIVERSAL::isa($_[0],'HASH') ? $_[0] : ());
|
|
8 $self->callCTOR(@_);
|
|
9 return $self;
|
|
10 }
|
|
11
|
|
12 sub surrogate {
|
|
13 $_[0]->Class::Accessor::new;
|
|
14 }
|
|
15 1;
|