在Perl中如何判断一个对象是否实现了某个方法？

Question

在Perl中如何判断一个对象是否实现了某个方法？

6

我有一个包含多态对象的数组，这些对象实现了两个（非正式的）接口。我希望能够通过反射来区分它们，例如：

if (hasattr(obj, 'some_method')) {
    # `some_method` is only implemented by one interface.
    # Now I can use the appropriate dispatch semantics.
} else {
    # This must be the other interface.
    # Use the alternative dispatch semantics.
}

也许像这样的东西可以工作吗？

if (*ref(obj)::'some_method') {
    # ...

我很难分辨语法何时尝试调用子例程以及何时返回子例程引用。我对软件包符号表不太熟悉，只是试图进行一些简单的操作。:-)

提前感谢！

- cdleary

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- Kent Fredric · Accepted Answer

use Scalar::Util qw(blessed);
if( blessed($obj) and $obj->can('some_method') ){ 

}

"can" 在这里是所有类从UNIVERSAL继承的一个方法。类可以重写此方法，但这并不是一个好主意。

此外，“can”返回对函数的引用，因此您可以执行：

$foo->can('some_method')->( $foo , @args );

或者

my $sub = $foo->can('some_method'); 
$foo->$sub( @args );

编辑更新了链式语法，感谢Brian Phillips。