You might be misunderstanding what...

goto(&current_method);
[download]

... does. It doesn't execute &current_method, and then go to whatever label was returned from &current_method. It just goes to &current_method. It's not scary; it's not unmaintainable; it's just a tail call.

From perlfunc (my emphasis):

The goto-&NAME form is quite different from the other forms of goto. In fact, it isn't a goto in the normal sense at all, and doesn't have the stigma associated with other gotos. Instead, it exits the current subroutine (losing any changes set by local()) and immediately calls in its place the named subroutine using the current value of @_. This is used by AUTOLOAD subroutines that wish to load another subroutine and then pretend that the other subroutine had been called in the first place (except that any modifications to @_ in the current subroutine are propagated to the other subroutine.) After the goto, not even caller will be able to tell that this routine was called first.