Note that the warnings is easily silenced in situations such as the Catalyst example you gave by following up the call with an explicit return;.

sub xxx : Local Args(0) {
    my ($self, $c) = @_;
    ...
    myfunc();
    return;
}
[download]