in reply to Cutting repetition in POE coding

Why not

return EVENT $session, "argh" if $condition;

If the return value will be acted upon, then arrange the appropriate return value from the sub

sub EVENT { $kernel->post( shift, event => @_ ); 0; }; # whatever valu +e is appropriate

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.