Mercurial > pub > Impl

diff 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
line wrap: on
line diff
--- a/Lib/IMPL/Class/PropertyInfo.pm	Thu Oct 15 17:52:09 2009 +0400
+++ b/Lib/IMPL/Class/PropertyInfo.pm	Fri Oct 16 16:37:53 2009 +0400
@@ -11,6 +11,10 @@
 sub CTOR {
     my $this = shift;
     
+    if ( my $type = $this->Attributes ? delete $this->Attributes->{type} : undef ) {
+        $this->Type($type);
+    }
+    
     $this->Mutators(0) unless defined $this->Mutators;
 }