sub getsubname {
    use B 'svref_2object';
    my $coderef = shift;
    join '::', eval { svref_2object($coderef)->GV->STASH->NAME },
               eval { svref_2object($coderef)->GV->NAME }
}