Mercurial > pub > Impl
annotate Lib/IMPL/Object/Accessor.pm @ 202:5146e17a7b76
IMPL::Web::Application::RestResource fixes, documentation
author | sergey |
---|---|
date | Wed, 25 Apr 2012 02:49:23 +0400 |
parents | 4d0e1962161c |
children | 6d8092d8ce1b |
rev | line source |
---|---|
49 | 1 package IMPL::Object::Accessor; |
2 use strict; | |
166 | 3 use parent qw(IMPL::Object::Abstract Class::Accessor IMPL::Class::Meta); |
49 | 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 } | |
60
b0c068da93ac
Lazy activation for the configuration objects (final concept)
wizard
parents:
49
diff
changeset
|
15 |
180 | 16 __PACKAGE__->static_accessor( propertyInfoClass => 'IMPL::Class::AccessorPropertyInfo' ); |
17 | |
60
b0c068da93ac
Lazy activation for the configuration objects (final concept)
wizard
parents:
49
diff
changeset
|
18 sub _PropertyImplementor { |
194 | 19 'IMPL::Class::Property::Accessor' |
60
b0c068da93ac
Lazy activation for the configuration objects (final concept)
wizard
parents:
49
diff
changeset
|
20 } |
49 | 21 1; |