Mercurial > pub > Impl
comparison Lib/IMPL/Class/PropertyInfo.pm @ 274:8d36073411b1
+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 |