sub thisoutine {
    PRE_CODE();
    thisroutine() and do {
    CONTINUE();
    };
}

##</code><code>##

sub thisroutine {
    PRE_CODE();
    unless (thatroutine()) {
    CONTINUE();
    }
}