La Función blessed

La función blessed en Scalar::Util tiene la sintáxis:

      blessed EXPR

Si EXPR es una referencia que fué bendecida retorna el nombre del corespondiente paquete. En otro caso retorna undef.

$scalar = "foo";
$class  = blessed $scalar;           # undef

$ref    = [];
$class  = blessed $ref;              # undef

$obj    = bless [], "Foo";
$class  = blessed $obj;              # "Foo"