DoStuff({@parameters, on_event=>\&handle_event});

##</code><code>##

my $doer = new ThingThatDoesStuff ({@parameters});
while ($doer->GetNextEvent()) {
	# handle event
}

##</code><code>##

package ThingWithCallbacks;
use ThingAsIterator;

sub DoThing {
	my ($params) = @_;
	my $callback = $params->{callback};

	my $doer = new ThingAsIterator ({@parameters});
	while (my $event = $doer->GetNextEvent()) {
		&$callback($event);
	}	
}

##</code><code>##

------------
:Wq
Not an editor command: Wq