eval {
    my $obj = B::svref_2object(shift);
    $obj->GV->STASH->NAME . "::" . $obj->GV->NAME;
     } || undef;