view release on metacpan or  search on metacpan

lib/IO/Lambda.pm  view on Meta::CPAN

	my ( $self, @error) = @_;

	$self-> {last} = \@error;
	$self-> cancel_all_events;
	warn $self-> _msg('terminate') if $DEBUG_LAMBDA;
}

# propagate event destruction on all levels
sub destroy
{
	shift-> cancel_all_events( cascade => 1);
}

# synchronisation

# drives objects dependant on the other objects until all of them
# are stopped
my ($drive_reentrancy_refresh, $drive_reentrancy_depth) = (0,0);
sub drive
{
	$drive_reentrancy_depth++;