EXPORT y EXPORT_OK

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  }