El método import que proporciona Exporter
examina la lista de cadenas en @EXPORT para determinar que funciones
y variables
se exportan por defecto.
Si tenemos variables o rutinas que sólo deben ser exportadas bajo demanda
del cliente (como foo
en use Tutu qw(foo)
)
debemos escribir sus nombres en
la lista @EXPORT_OK .
La línea de asignación
a la variable @EXPORT
hace que se cree un alias para
la función hop_along
en el programa cliente. De este modo
no es necesario llamar a la función por su nombre completo
Modexample::HopsExport::hop_along
sino simplemente
hop_along
.
lhp@nereida:~/Lperl/src$ cat -n usehopsexport.pl 1 #!/usr/bin/perl -w -I. 2 use strict; 3 use Modexample::HopsExport; 4 5 my ($r, $c); 6 my $row = hop_along 1, 5, 1; 7 my $col = hop_along 1, 5, 1; 8 while ($row->($r)) { 9 while ($col->($c)) { 10 print("($r, $c)\t"); 11 } 12 print "\n"; 13 }
Casiano Rodríguez León