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";
####
About to call foo()
Entering foo
Entering bar
Leaving bar
foo() returned 'bar did this'
##
##
sub EVENT {
$kernel->post( shift, event => @_ );
Want::double_return();
return;
}