我有一个实现两个(非正式)接口的多态对象数组。我希望能够通过以下方式区分它们:
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') {
# ...
我很难说出语法何时会尝试调用子例程以及何时返回子例程引用。我不太熟悉包装符号表ATM,我只是试图破解一些东西。 : - )
提前致谢!
答案 0 :(得分:16)
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