OK, hab was gefunden, trotzdem noch ne Frage...

[Philipp Hasenfratz]

Heureka, ich hab's gefunden...

wen's noch interessiert:

Aber eine Frage habe ich noch (aber vielleicht finde ich es in den nächsten fünf mins auch wieder raus)...

Wie kann man das allgemein Formulieren? - Ich meine das
   my %h = %{bla::};

my %h = %{__PACKAGE__::}; und
my %h = %{'__PACKAGE__::'} geben mir immer Fehler...

natürlich kann man das %h auch weglassen, ich weiss...

Viele Grüsse

Philipp

_____________________________________________________________________

package bla;

use strict;

sub new { bless {}, shift }

sub isMethod {
   my ($self, $name) = @_;
   my %h = %{bla::};
   if ($h{$name}) {
      return 1;
   } else {
      return undef;
   }
}

sub test {
   print "OK, test successful";
}

package main;

my $t = new bla;
if ($t -> isMethod('test')) {
   $t -> test;
} else {
   print "Method test unknown";
}

1;