Mercurial > pub > Impl

comparison Lib/IMPL/Object/Accessor.pm @ 4:e59f44f75f20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DOM - в разработке Testing - по мелочи Property - изменен механизм выбора имплементора
author Sergey
date Wed, 12 Aug 2009 17:36:07 +0400
parents 03e58a454b20
children 16ada169ca75
comparison
equal deleted inserted replaced
3:2e546a5175dd 4:e59f44f75f20
1 package IMPL::Object::Accessor; 1 package IMPL::Object::Accessor;
2 use strict; 2 use strict;
3 use base qw(IMPL::Object Class::Accessor IMPL::Class::Meta); 3 use base qw(IMPL::Object::Abstract Class::Accessor IMPL::Class::Meta);
4 4
5 sub new { 5 sub new {
6 my $class = shift; 6 my $class = shift;
7 my $self = $class->Class::Accessor::new( @_ == 1 && ref $_[0] && UNIVERSAL::isa($_[0],'HASH') ? $_[0] : ()); 7 my $self = $class->Class::Accessor::new( @_ == 1 && ref $_[0] && UNIVERSAL::isa($_[0],'HASH') ? $_[0] : ());
8 $self->callCTOR(@_); 8 $self->callCTOR(@_);