Mercurial > pub > Impl
annotate Lib/IMPL/Object/Accessor.pm @ 309:5e4e7c8fbca1
sync
| author | cin |
|---|---|
| date | Fri, 19 Apr 2013 00:27:51 +0400 |
| parents | 4ddb27ff4a0b |
| children |
| rev | line source |
|---|---|
| 49 | 1 package IMPL::Object::Accessor; |
| 2 use strict; | |
| 278 | 3 |
| 4 use parent qw( | |
| 5 IMPL::Object::Abstract | |
| 6 Class::Accessor | |
| 7 ); | |
| 49 | 8 |
| 278 | 9 use IMPL::require { |
| 10 ClassPropertyImplementor => '-IMPL::Code::AccessorPropertyImplementor' | |
| 11 }; | |
| 12 | |
| 13 require IMPL::Code::AccessorPropertyImplementor; | |
| 230 | 14 |
| 49 | 15 sub new { |
| 16 my $class = shift; | |
| 17 my $self = $class->Class::Accessor::new( @_ == 1 && ref $_[0] && UNIVERSAL::isa($_[0],'HASH') ? $_[0] : ()); | |
| 18 $self->callCTOR(@_); | |
| 19 return $self; | |
| 20 } | |
| 21 | |
| 22 sub surrogate { | |
| 23 $_[0]->Class::Accessor::new; | |
| 24 } | |
|
60
b0c068da93ac
Lazy activation for the configuration objects (final concept)
wizard
parents:
49
diff
changeset
|
25 |
| 49 | 26 1; |