Mercurial > pub > Impl

comparison Lib/IMPL/Class/PropertyInfo.pm @ 274:8d36073411b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
+Added AutoDispose class *code cleanups
author cin
date Wed, 30 Jan 2013 03:30:28 +0400
parents 6d8092d8ce1b
children 6253872024a4
comparison
equal deleted inserted replaced
273:ad93c9f4dd93 274:8d36073411b1
3 3
4 use parent qw(IMPL::Class::MemberInfo); 4 use parent qw(IMPL::Class::MemberInfo);
5 5
6 our %CTOR = ( 'IMPL::Class::MemberInfo' => '@_' ); 6 our %CTOR = ( 'IMPL::Class::MemberInfo' => '@_' );
7 7
8 __PACKAGE__->mk_accessors(qw(Type Mutators canGet canSet ownerSet)); 8 __PACKAGE__->mk_accessors(qw(Type Mutators canGet canSet ownerSet isList));
9 9
10 my %LoadedModules; 10 my %LoadedModules;
11 11
12 sub CTOR { 12 sub CTOR {
13 my $this = shift; 13 my $this = shift;
37 37
38 sub SelectImplementor { 38 sub SelectImplementor {
39 eval {$_[0]->Class->_PropertyImplementor} or die new IMPL::Exception('Can\'t find a property implementor for the specified class',$_[0]->Class); 39 eval {$_[0]->Class->_PropertyImplementor} or die new IMPL::Exception('Can\'t find a property implementor for the specified class',$_[0]->Class);
40 } 40 }
41 41
42 sub type {
43 goto &Type;
44 }
45
42 1; 46 1;
43 47
44 __END__ 48 __END__
45 49
46 =pod 50 =pod