Wie finde ich alle Methoden eines Objekts?

Name

Aufgabe

Skript

my @exclude = qw(B Exporter);
my @m = methods(ref $objekt, \@exclude);
# oder
# my @m = methods('Klasse', \@exclude);
print Dumper \@m;


sub methods {
  my ($package, $ex) = @_;
  return if grep { $package eq $_ } @$ex;
  my @m;
  no strict 'refs';
  for my $name (keys %{$package.'::'}) {
    my $sym = ${$package.'::'}{$name};
    if (defined *{$sym}{CODE}) {
      push @m, [$name, $package];
    }
  }
  for my $isa (@{$package.'::ISA'}) {
    push @m, methods($isa, $ex);
  }
  return @m;
}

Ergänzungen, Kommentare

---### Main.??? - 14 Jul 2003 - Betreff