El use strict
hace que el compilador se queje, ya que el
lado derecho es una referencia a subrutina y el lado izquierdo un ''typeglob'':
~/perl/src> use_Biblio_Doc.1.pl Can't use string ("get_author") as a symbol ref while "strict refs" in use at Biblio/Doc1.pm line 36. Has llamado a Biblio::Doc1::DESTROY() y no existe!Podemos hacer que la queja desaparezca, escribiendo al comienzo de
AUTOLOAD
la
directiva:
no strict "refs";hace que
strict
deje de controlar el uso de referenciado
simbólico en el ámbito en el que se ubique.
Casiano Rodríguez León