return EVENT $session, "argh" if $condition; #### sub EVENT { $kernel->post( shift, event => @_ ); 0; }; # whatever value is appropriate