[Programación]callback en perl?

[Angel Arancibia]

El día 30 de diciembre de 2009 12:44, Angel Arancibia
<angel.arancibia en gmail.com> escribió:
> Perfecto, muchas gracias.


Una cosa mas, quizas a alguien le interese. Si se quiere hacer un
callback dentro de un mismo modulo, la forma anterior no funciona, los
metodos de los modulos son bastante mas que solo las llamadas a las
funciones correspondientes, tambien necesita el estado del objeto.
Para lograr un callback hay que hacer algo del estilo de lo siguiente:

{
	package bla;
	use strict;
	sub new{
		my $self=eval shift;
                my $obj;
		$self->{obj}=otro_modulo->funcion_que_setea_el_callback_en_otro_lado(sub
{$self->callback(@_) })
		return bless($self);
	}
	sub callback{
		my $self=shift;
		my $arg=shift;	
                print $arg;
        }
        1;
}


Saludos,

Angel