annotate Lib/IMPL/Object/Accessor.pm @ 49:16ada169ca75
migrating to the Eclipse IDE
| author |
wizard@linux-odin.local |
| date |
Fri, 26 Feb 2010 10:49:21 +0300 |
| parents |
e59f44f75f20 |
| 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;
|
