NAME

Class::Listener - executes methods on events

SYNOPSIS

  use Class::Listener;

  {
    package My::Listener;

    our @ISA = qw(Class::Listener);
	
	sub new 
	{
		bless [], 'My::Listener';
	}
	
	sub _on_event
	{
		print "event received";
	}	
  }

  my $l = My::Listener->new();

	# call '_on_event' method
	
  $l->Class::Listener::signal( 'event', @args );

DESCRIPTION

A base class which listenes for signals and runs methods.

METHODS

signal( $eventname, @args )

$eventname

A method with the name "_on_$eventname" will be called (if it exists).

@args

This array is forwarded to the callback.

[Note] signal returns the resulting return value of the callback.

EXPORT

None by default.

AUTHOR

Murat Uenalan, <muenalan@cpan.org>

SEE ALSO

Class::Proxy.