Mercurial > pub > Impl
annotate Lib/IMPL/Object/Accessor.pm @ 307:2da2564f115d
*TTView: fixed memory leak
author | cin |
---|---|
date | Thu, 18 Apr 2013 02:21:28 +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; |