Hola chicos
Soy programador PHP y intento crear una clase en Perl.
Solo tiene 2 method (por ahora). Estoy probando con el perl -d (mi fichero) en ms dos el depurador de perl y me siguente error:
can't call the method __get an undefined value
la clase es esta (fichero Crypt.pm)
Código PHP:
package Crypt;
sub new {
my $this=shift;
my $class = ref($this) || $this;
my $self={};
$self ->{mode} = "base64 encode";
$self ->{key} = "blablablablablabla1234";
bless $self, $class;
return ($self);
}
sub __get{
my $self=shift;
my $param1 = shift(@_);
if ($param1 == "key") {
return $self->{key};
}
if ($param1 == "key") {
return $self->{mode};
}
}
y la llamo asi
Código PHP:
my $ob = new Crypt();
$ob -> __get("key");
Y da el error can't call the method __get an undefined value.
Alguien puede echar un mano? No entiendo que quiere decir este error.
Un cordial saludo a todos.