¿Es una buena práctica exportar variables en Perl?

Question

Me resulta muy conveniente pasar la configuración y otros datos que se leen o calculan una vez, pero luego se usan muchas veces en un programa utilizando el mecanismo use de Perl. Estoy haciendo esto exportando un hash al espacio de nombres de la persona que llama. Por ejemplo:

package Myconfiguration; 

my %config; 

sub import { 
    my $callpkg = caller(0); 
    my $expsym = $_[1]; 

    configure() unless %config; 

    *{"$callpkg\::$expsym"} = \%config; 
} 

y luego en otros módulos:

use MyConfiguration (loc_config_sym); 

if ($loc_config_sym{paramater}) { 
    # ... do stuff ... 
} 

Sin embargo, no estoy seguro de esto como una buena práctica. ¿Es mejor agregar un método que devuelva una referencia hash con los datos? ¿Algo más?

Answer 1

Si sólo desea leer los valores de %config, entonces por qué no tienen una rutina que lo haga por ¿tú?

my %config; 
sub config_value 
{ 
     my ($value) = @_; 
     return $config{$value}; 
} 

puede exportar esto por defecto si se quería:

package Mypackage; 
require Exporter; 
@EXPORT = qw/config_value/; 

La razón por la que no iba a permitir el acceso al hash por todo el lugar en un montón de diferentes módulos es que iba a tener un momento difícil para hacer un seguimiento mental de todos los lugares donde se estaba utilizando. Prefiero realizar el tipo de acceso anterior de rutina para que, si ocurriera algún error, podría agregar una declaración de impresión a la rutina, o algo así, para averiguar cuándo se accedía al valor. No sé si eso está relacionado con las "mejores prácticas" o simplemente porque soy estúpido, pero el tipo de confusión creada por las variables globales me asusta.

No hay razón por la que no se puede tener una rutina demasiado:

sub set_value 
{ 
     my ($key, $value) = @_; 
     $config{$key} = $value; 
} 

Answer 2

Creo que es mejor trabajar con una copia del config hash. De esta manera, si modifica algunos elementos, esto no afectará el resto de su código.

Normalmente uso un objeto simple (opcionalmente Singleton) para esto con un solo método como get_property().

Answer 3

En general, es mejor dejar que el usuario decida si importar o no símbolos. Exporter lo hace fácil. Escribir un método personalizado import para que el usuario decida qué nombre dar a los símbolos importados puede ser útil en raras ocasiones, pero no creo que este sea uno de ellos.

package MyConfiguration; 
require Exporter; 

our @ISA  = qw(Exporter); 
our @EXPORT_OK = qw(Config); 

our %Config; 

Y luego, en el script:

use MyConfiguration; 
print $MyConfiguration::Config{key}; 

o

use MyConfiguration qw(Config); 
print $Config{key}; 

Answer 4

Sugiero no exportar variables. Cree una clase que pueda devolver una referencia a una variable privada en su lugar. Las personas pueden almacenarlo en una variable con el nombre que quieran, y solo cuando decidan que quieren usarlo.