Foro - Perl en Español

Hola.
Bueno tengo esto:

Código: Seleccionar todo

sub New {
  my ($pkg, $name) = @_;
  my $self = {};
  $self->{Pkg} = $pkg;
  $self->{Name} = $name;
  bless($self, $self->{Pkg});
  return $self;
}

Ahí no hay problema, el sub esta en un package, pero despues, en el mismo módulo, quiero modificar el objeto en un sub diferente.
¿Cómo hago eso?
Gracias.

Cuando creas un objeto y luego llamas a una función del mismo package el primer valor que SIEMPRE se enviará es el objeto...

De modo que puedes crear una función:

Código: Seleccionar todo

sub cambia {
    $self = shift;
    $self->{Name} = 'esteban';
}

Al llamar a esa función $objeto->cambia(); te cambiará el atributo Name a esteban

Espero que te sirva

Saludos

Mucha gracias MonoSwim, me sirvio mucho.

Para completar, en perldoc hay 4 tutoriales sobre programación orientada a objetos:

Beginner's Object-Oriented Tutorial
Tom's object-oriented tutorial for perl
Tom's OO Tutorial for Class Data in Perl
Bag'o Object Tricks (the BOT)