Mercurial > pub > Impl

comparison Lib/IMPL/Class/PropertyInfo.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 431db7034a88
children 8d36073411b1
comparison
equal deleted inserted replaced
229:47f77e6409f7 230:6d8092d8ce1b
1 package IMPL::Class::PropertyInfo; 1 package IMPL::Class::PropertyInfo;
2 use strict; 2 use strict;
3 use IMPL::_core::version;
4 3
5 use parent qw(IMPL::Class::MemberInfo); 4 use parent qw(IMPL::Class::MemberInfo);
6 5
7 our %CTOR = ( 'IMPL::Class::MemberInfo' => '@_' ); 6 our %CTOR = ( 'IMPL::Class::MemberInfo' => '@_' );
8 7
29 my $implementor = $this->SUPER::Implementor; 28 my $implementor = $this->SUPER::Implementor;
30 return $implementor if $implementor; 29 return $implementor if $implementor;
31 30
32 $implementor = $this->SelectImplementor(); 31 $implementor = $this->SelectImplementor();
33 32
34 if (my $class = ref $implementor ? undef : $implementor) {
35 eval "require $class; 1;" or die $@ unless $LoadedModules{$class}++;
36 }
37
38 $this->Implementor($implementor); 33 $this->Implementor($implementor);
39 } 34 }
40 35
41 } 36 }
42 37