如何动态调用对象的方法？

Question

在 Perl 中，我知道您可以使用 eval 和 *{$func_name} 动态调用函数，但是如何使用对象的方法来执行此操作？

例如

EZBakeOven
  sub make_Cake { ... }
  sub make_Donut { ... }
  sub make_CupCake { ... }
  sub make_Soup { ... }

  sub make{
    my($self,$item) = @_;
    if( defined $self->make_$item ){ #call this func if it exists
      $self->make_$item( temp => 300, with_eggs => true ); 
    }
  }

，如果我说类似的话，

$self->make('Cake');
#or maybe I have to use the full method name
$self->make('make_Cake');

它会打电话给

$self->make_Cake();

Answer 1

您应该能够执行以下操作：

sub make {
  my ($self, $item) = @_;
  my $method = "make_$item";
  $self->$method(whatever);
}

编辑：您可能还想使用can()来确保您正在调用的方法可以被调用：

sub make {
  my ($self, $item) = @_;
  my $method = "make_$item";
  if ($self->can($method)) {
    $self->$method(whatever);
  } else {
    die "No such method $method";
  }
}

>编辑2：事实上，现在我想起来，我不确定你是否真的能做到这一点。我之前编写的代码执行类似的操作，但它不使用对象，而是使用类（因此您正在调用类中的特定函数）。它可能也适用于对象，但我不能保证。

Answer 2

正如 @CanSpice 建议使用 can 来检查类和对象中是否存在方法。
can 返回对该方法的引用（如果存在），否则返回 undef。
您可以使用返回的引用直接调用该方法。

以下示例在包/类上下文中调用该方法。 __PACKAGE__ 返回当前包/类名称。

if ( my $ref = __PACKAGE__->can("$method") ) {
    &$ref(...);
}