sub generate {
    my( $self )= @_;
    goto $self->{GOTO}   if  $self->{GOTO};
    ...
        $self->{GOTO}= 'gnarfle';
        return ...; gnarfle:
    ...
}