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  }

Casiano Rodríguez León
Licencia de Creative Commons
Principios de Programación Imperativa, Funcional y Orientada a Objetos Una Introducción en Perl/Una Introducción a Perl
por Casiano Rodríguez León is licensed under a Creative Commons Reconocimiento 3.0 Unported License.

Permissions beyond the scope of this license may be available at http://campusvirtual.ull.es/ocw/course/view.php?id=43.
2012-06-19