Как вы динамически вызываете метод объекта?

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(...);
}