nombre de clase de un objeto en Perl

tengo una referencia de objeto y podría ser una referencia a un objeto de tipo '' FooInvalidResultsnombre de clase de un objeto en Perl

Hay un archivo llamado FooInvalidResults.pm y hay una línea de 'FooInvalidResults paquete' en eso.

hará el siguiente trabajo?

my $class = blessed $result; 
if ($class eq 'FooInvalidResults') { 
    # do something 
} else { 
    # do something else 
}

Fuente

2011-09-26 user855

¿Por qué no usaste UNIVERSAL::isa?

if UNIVERSAL::isa($result, "FooInvalidResults") { 
    ... 
}

Este fue un mal consejo , por favor utilice

$obj->isa('FooInvalidResults');

no estaba lleno consciente de la diferencia entre la llamada de subrutina (BAD) y el método de llamada (bueno), pero se hizo evidente después de Hice algunos RTFM yo mismo (perldoc UNIVERSAL). Gracias (y +1) a todas las personas que señalaron mi culpa.

Fuente

2011-09-26 13:57:51

No aconseje a nadie que use UNIVERSAL :: ISA. Si alguien sabe, cuando es peligroso usarlo, no le preguntaría ... –

@JanHartung Roger. No sabía que 'UNIVERSAL :: isa' era una bomba de tiempo. Tal vez no he abusado de 'isa' lo suficiente como para meterme en problemas. –

$ obj-> isa no funciona cuando quiero garantizar que un objeto sea miembro de la superclase y no miembro de alguna subclase. –

La comparación de cadenas de nombres de clase es generalmente una mala idea, porque rompe el polimorfismo basado en subtipos, y porque generalmente no es bueno OO ser tan curioso acerca de detalles íntimos de un objeto como su nombre exacto de paquete.

En su lugar, escriba $result->isa('FooInvalidResults') - o, si es paranoico sobre la posibilidad de que $result no sea un objeto en absoluto, blessed $result && $result->isa('FooInvalidResults').

Usando UNIVERSAL::isa es una mala idea porque algunos objetos (por ejemplo, objetos simulados para realizar pruebas) tienen razones legítimas para reemplazar el método isa, y llamando UNIVERSAL::isa rompe esa.

Fuente

2011-09-26 13:58:05 hobbs

En su opinión, ¿'UNIVERSAL :: isa' siempre es una mala idea, o puede ser una solución viable para casos simples? –

@MarcoDeLellis si hay casos en los que tiene sentido usarlos, definitivamente no son * simples *. Puede tener sentido al escribir un mro personalizado o algo así, pero nunca debe usarse para fines ordinarios. – hobbs

También es posible hacer el trabajo con la ref() orden interna en lugar de Scalar::Util::blessed():

$ perl -E '$ref = {}; bless $ref => "Foo"; say ref $ref' 
Foo

Tenga en cuenta que si la referencia no es bendecido, esto devolverá el tipo de referencia:

$ perl -E '$ref = {}; say ref $ref' 
HASH

Sin embargo, como han mencionado otros, UNIVERSAL::isa es una mejor solución.

Fuente

2011-09-26 14:18:51 frezik

¡No aconseje a nadie que use UNIVERSAL :: ISA! Si alguien sabe, cuando es peligroso usarlo, él no preguntaría ... –

nombre de clase de un objeto en Perl

Respuesta

Cuestiones relacionadas