¿Cómo puedo determinar si un objeto implementa un método en Perl?

Question

Tengo una matriz polimórfica de objetos que implementan dos interfaces (informales). Quiero ser capaz de diferenciarlos con la reflexión a lo largo de las líneas de:

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. 
} 

tal vez algo como esto funciona ?:

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

tengo dificultad para distinguir cuando la sintaxis intentará invocar una subrutina y cuando devolverá una referencia de subrutina. No estoy muy familiarizado con las tablas de símbolos de paquetes ATM y solo estoy tratando de hackear algo. :-)

Gracias de antemano!

Answer 1

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

} 

"puede" aquí es un método heredado por todas las clases de UNIVERSAL. Las clases pueden anular este método, pero no es una buena idea hacerlo.

Además, "puede" devuelve una referencia a la función, por lo que puede hacer:

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

o

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

• Scalar::Util
• Perl Objects on perldoc.perl.org

Editar Sintaxis de cadena actualizada, gracias a Brian Phillips