Select Code to Download

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

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

package ThingWithCallbacks;
use ThingAsIterator;
...
        &$callback($event);
    }    
}

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