¿Por qué Perl permite relaciones mutuas de "uso" entre módulos?

Question

Digamos que hay dos módulos que utilizan mutuamente:

package a; 
use b; 
sub p {} 

1; 

package b; 
use a; 
1; 

Creo que es sistemáticamente incorrecta de escribir código como el anterior, debido a que los dos módulos sin fin copiar el código de cada uno para sí mismos, pero puede ejecutar con éxito el siguiente código, lo que me sorprende mucho. ¿Podrían alguno de ustedes explicarme todo esto?

#! /usr/bin/perl 
use a; 
a->p(); 

Answer 1

porque los dos módulos sin fin copiar el código de cada uno para sí mismos

No, no lo harán, como se demuestra con el código que ha sorprendido por trabajo. Perl mantiene un registro en %INC cuyos módulos se han cargado con use o require y no intentará volver a cargarlos si obtienen use d o require d de nuevo.

Answer 2

Por lo que recuerdo, la directiva "use" perl realiza la comprobación de si el módulo ya está cargado. Se hace llamando a la función require(). Entonces, no hay una copia sin fin.

Answer 3

Hay (al menos) tres formas diferentes de cargar algo: use, require y do.

use es básicamente un pimped require y perldoc states para require: requieren exigencias que un archivo de biblioteca se incluirá si ya no se ha incluido. Así que no hay problema allí.

do es una historia diferente. Ejecuta el archivo y es más o menos como eval o C #include. La inclusión mutua a través de do debe ser fatal.