Can't find label CODE(0x81678a0) at sub.pl line 13.

##</code><code>##

            Rate refcall   named    goto
refcall 708190/s      --     -1%    -10%
named   717414/s      1%      --     -9%
goto    790676/s     12%     10%      --

##</code><code>##

    my $ref = *function{'CODE'}; # get a reference 
    goto $ref;                   # magic goto to that reference

##</code><code>##

    my $ref = \&{$coderef};      # get a reference (\&{&$ref} without the call)
    goto $ref;                   # magic goto to that reference

##</code><code>##

    goto $ref;                   # we have a code reference, just use that

##</code><code>##

--- g_ref.Dtls
+++ g_amp.Dtls
@@ -69,7 +69,13 @@
     =>  
 (foo.pl:5)     nextstate
     =>  
+(foo.pl:5)     pushmark
+    =>  *  
 (foo.pl:5)     padsv($ref)
+    =>  *  \CV(__ANON__)  
+(foo.pl:5)     rv2cv
+    =>  *  CV(__ANON__)  
+(foo.pl:5)     refgen
     =>  \CV(__ANON__)  
 (foo.pl:5)     goto
 (foo.pl:5)     (Found sub #1)