Resulta que quiero crear un módulo que debe de tener variables privadas, que sólo se puedan usar desde el módulo (por todas las funciones) pero que no se puedan modificar en los programas que usen este módulo.
Using perl Syntax Highlighting
package MyModulo;
use strict;
BEGIN {
my $algo = 1;
tie $algo, "MyModulo";
}
sub new { $algo++; }
sub del { $algo--; }
1;
use strict;
BEGIN {
my $algo = 1;
tie $algo, "MyModulo";
}
sub new { $algo++; }
sub del { $algo--; }
1;
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Claro, el tie está mal hecho (le falta todo lo indicado en perltie) y planeé usar Readonly pero su nombre lo dice...
Entonces necesito algo como our pero que sea privado y que se pueda modificar como yo lo intento.
¿Hay algún módulo o forma de hacer esto?
Gracias.