コードリファレンスから名前取得

#!/usr/bin/env perl
use strict;
use warnings;
use B;


sub print_hoge {
    print "hoge\n";
};

my $coderef = \&print_hoge;

warn B::svref_2object($coderef)->GV->NAME; #print_hoge