use B 'svref_2object';

sub sub_package { eval { svref_2object( shift )->STASH->NAME } }