Hin- und Her-"blessen" (gelöst) - #188517 (Allgemeines zu Perl)

murphy

2018-06-10 16:13

User since
2004-07-19
1776 Artikel
HausmeisterIn

Statt mit bless die Klasse des Objektes zu ändern, müsste es eigentlich auch möglich sein, die Methode im gewünschten Paket explizit aufzurufen, zum Beispiel so:

Code (perl): (dl )

sub AUTOLOAD {
  my $self = shift;
  my ($package, $method) = (our $AUTOLOAD =~ m/^(.*)::(.*)$/);
  $method = "Foo::$method";
  return $self->$method(@_);
}

Oder auch so:

Code (perl): (dl )

sub AUTOLOAD {
  my ($package, $method) = (our $AUTOLOAD =~ m/^(.*)::(.*)$/);
  goto &{"Foo::$method"};
}

Last edited: 2018-06-10 16:16:45 +0200 (CEST)

When C++ is your hammer, every problem looks like your thumb.