Changeset 3373 for ext/Perl-MetaModel/lib/Perl/Meta/Class.pm

Timestamp:

05/18/05 03:51:03 (4 years ago)

Author:

Stevan

svk:copy_cache_prev:

4945

Message:

Perl::MetaModel? - findMethod and invokeMethod methods coded and tested (and an isMethodSupported too); Smalltalk Meta-Model++

Files:

• ext/Perl-MetaModel/lib/Perl/Meta/Class.pm (modified) (1 diff)

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

@@ -158 +158 @@
 }
 
-# can we remove these?
 method methods      ($self:) returns Hash  { %:methods        }
 method methodLabels ($self:) returns Array { %:methods.keys() }
 
 method findMethod ($self: $label) returns Perl::Meta::Method {
-
-}
-
-our &Perl::Meta::Class::isMethodSupported ::= &Perl::Meta::Class::findMethod;
-
-method invokeMethod ($self: Str $label, @args) returns Any {  
+    return %:methods{$label} if %:methods.exists($label);
+    return $:parent.findMethod($label) if $:parent.defined;
+    return undef;
+}
+
+method isMethodSupported ($self: $label) returns Bool {
+    $self.findMethod($label) ?? 1 :: 0;
+}
+
+method invokeMethod ($self: Str $label, *@args) returns Any {  
     my $method = $self.findMethod($label);
     ($method.defined)
         || die "Method not found";
     my $impl = $method.code();
+    ($impl.defined)
+        || die "Method has no code";    
     return $impl($self, @args);
 }