note
robin
It does sound rather as though you're looking for a way to make a sub force its caller to return. You may be interested, amused, and/or horrified to know that <tt>Want</tt> provides an (undocumented) way to do just this. If you call <code>Want::double_return()</code>, then the next ordinary <tt>return</tt> will return <i>from the calling sub</i>.
<p>
For example, the code:
<code>
use Want;
sub foo {
print "Entering foo\n";
bar();
print "Leaving foo\n";
return "foo did this";
}
sub bar {
print "Entering bar\n";
print "Leaving bar\n";
Want::double_return();
return "bar did this";
}
print "About to call foo()\n";
my $r = foo();
print "foo() returned '$r'\n";
</code>
prints the following:
<code>
About to call foo()
Entering foo
Entering bar
Leaving bar
foo() returned 'bar did this'
</code>
<p>
<b>Update</b>: so in your case, you could write
<code>
sub EVENT {
$kernel->post( shift, event => @_ );
Want::double_return();
return;
}
</code>
</p>
511869
511869