if( $condition )
{
  $kernel->post( $s, event => @args );
  return;
}

##</code><code>##

sub EVENT { $kernel->post( shift, event => @_ ) }; #basically

...

EVENT $session, "argh" if $condition;