annotate Lib/IMPL/Object/Accessor.pm @ 24:7f00786f8210
Первая рабочая реазизация схемы и навигаторов
| author |
Sergey |
| date |
Mon, 05 Oct 2009 00:48:49 +0400 |
| parents |
e59f44f75f20 |
| children |
16ada169ca75 |
| rev |
line source |
|
0
|
1 package IMPL::Object::Accessor;
|
|
|
2 use strict;
|
|
4
|
3 use base qw(IMPL::Object::Abstract Class::Accessor IMPL::Class::Meta);
|
|
0
|
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;
|
