Mercurial > pub > Impl

comparison Lib/IMPL/Object/Accessor.pm @ 230:6d8092d8ce1b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*reworked IMPL::Security *reworked IMPL::Web::Security *refactoring
author sergey
date Mon, 08 Oct 2012 03:37:37 +0400
parents 4d0e1962161c
children 4ddb27ff4a0b
comparison
equal deleted inserted replaced
229:47f77e6409f7 230:6d8092d8ce1b
1 package IMPL::Object::Accessor; 1 package IMPL::Object::Accessor;
2 use strict; 2 use strict;
3 use parent qw(IMPL::Object::Abstract Class::Accessor IMPL::Class::Meta); 3 use parent qw(IMPL::Object::Abstract Class::Accessor IMPL::Class::Meta);
4
5 require IMPL::Class::Property::Accessor;
4 6
5 sub new { 7 sub new {
6 my $class = shift; 8 my $class = shift;
7 my $self = $class->Class::Accessor::new( @_ == 1 && ref $_[0] && UNIVERSAL::isa($_[0],'HASH') ? $_[0] : ()); 9 my $self = $class->Class::Accessor::new( @_ == 1 && ref $_[0] && UNIVERSAL::isa($_[0],'HASH') ? $_[0] : ());
8 $self->callCTOR(@_); 10 $self->callCTOR(@_);
16 __PACKAGE__->static_accessor( propertyInfoClass => 'IMPL::Class::AccessorPropertyInfo' ); 18 __PACKAGE__->static_accessor( propertyInfoClass => 'IMPL::Class::AccessorPropertyInfo' );
17 19
18 sub _PropertyImplementor { 20 sub _PropertyImplementor {
19 'IMPL::Class::Property::Accessor' 21 'IMPL::Class::Property::Accessor'
20 } 22 }
23
21 1; 24 1;