Help for this page

Select Code to Download


  1. or download this
    use Want;

...
print "About to call foo()\n";
my $r = foo();
print "foo() returned '$r'\n";
  2. or download this
    About to call foo()
Entering foo
Entering bar
Leaving bar
foo() returned 'bar did this'
  3. or download this
    sub EVENT {
    $kernel->post( shift, event => @_ );
    Want::double_return();
    return;
}