Changeset 3374

Timestamp:

05/18/05 05:22:37 (4 years ago)

Author:

Stevan

svk:copy_cache_prev:

4945

Message:

Perl::MetaModel? - isPropertySupported method coded, needs tests

Files:

• ext/Perl-MetaModel/lib/Perl/Meta/Class.pm (modified) (2 diffs)

ext/Perl-MetaModel/lib/Perl/Meta/Class.pm

@@ -130 +130 @@
 
 method allProperties ($self:) returns Hash {
-    
+
 }
 
@@ -138 +138 @@
 
 method isPropertySupported ($self: $label) returns Bool {
-    
+    return %:properties{$label} if %:properties.exists($label);
+    return $:parent.isPropertySupported($label) if $:parent.defined;
+    return undef;    
 }