Mercurial > pub > Impl

comparison Lib/IMPL/Class/PropertyInfo.pm @ 27:b544a772b654

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ORM in progress
author Sergey
date Fri, 16 Oct 2009 16:37:53 +0400
parents e59f44f75f20
children 16ada169ca75
comparison
equal deleted inserted replaced
26:c529d386d80e 27:b544a772b654
8 8
9 my %LoadedModules; 9 my %LoadedModules;
10 10
11 sub CTOR { 11 sub CTOR {
12 my $this = shift; 12 my $this = shift;
13
14 if ( my $type = $this->Attributes ? delete $this->Attributes->{type} : undef ) {
15 $this->Type($type);
16 }
13 17
14 $this->Mutators(0) unless defined $this->Mutators; 18 $this->Mutators(0) unless defined $this->Mutators;
15 } 19 }
16 20
17 sub Implementor { 21 sub Implementor {