¿Cuál es la mejor forma de compartir variables entre una clase base y una subclase en Perl?
compartir variables entre subclase y clase
Iniciado por
Fran Smith
, may 19 2014 16:02
#1 AUTOR PREGUNTA
Preguntas Similares
Esto también te interesa!
#2
Publicado 19 mayo 2014 - 21:00
Primero tendrías tu clase principal:
Y luego tendrías la clase que utilice todos las variables y funciones de tu clase base:
package MiClaseBase;
use strict;
use warnings;
use Exporter 'import';
our @EXPORT_OK = qw/ variables & funciones /;
our %EXPORT_TAGS = (all => \@EXPORT_OK );
our ($ME, $list, $of, $vars);
sub mi_func {
}
sub otra_func {
}
Y luego tendrías la clase que utilice todos las variables y funciones de tu clase base:
package MiClaseExp;
use strict;
use warnings;
use Exporter 'import';
our @EXPORT_OK = qw/ MiClaseBase /;
our %EXPORT_TAGS = (all => \@EXPORT_OK );
use MiClaseBase ':all';
sub mi_func {
# nueva def
}