perl - 是否有一种标准方法可以选择性地从 Perl 父类(super class)继承方法？

Question

或者:是否有一种标准的方法来创建子类，但使父类(super class)中的某些方法在调用时产生“无法定位对象方法”错误？

例如，如果 My::Foo 继承自 My::Bar，并且 My::Bar 有一个名为 的方法>dostuff，调用 Foo->new->dostuff 会以某种非人为/hackish 方式死于“无法定位对象方法”错误。

Answer 1

如果父类(super class)是 Moose 类，您可以使用 remove_method。

package My::Foo;
use Moose;
extends 'My::Bar';

# some code here

my $method_name = 'method_to_remove';

__PACKAGE__->meta->remove_method($method_name);

1;

这记录在 Class::MOP::Class 中并且应该与 MooseX::NonMoose 一起使用但我不确定。