Cargando

Ir a contenido

X

compartir variables entre subclase y clase





  AUTOR PREGUNTA

Publicado 19 mayo 2014 - 15:02
¿Cuál es la mejor forma de compartir variables entre una clase base y una subclase en Perl?
  • ¿Tienes la misma pregunta? Yo también
  • Volver arriba


 

Publicado 19 mayo 2014 - 20:00
Primero tendrías tu clase principal:

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
}


   AUTOR PREGUNTA

Publicado 20 mayo 2014 - 02:57
Gracias


X