get self coderef

gistfile1.pl

sub hoge {                                                                                                                                                             
    my @caller = caller(0);                                                                                                                                            
    my $func = $caller[3];                                                                                                                                             
    my $code = \&{$func};                                                                                                                                              
    warn $code;                                                                                                                                                        
}