perl模块范围：：Upper：：Uplevel，在现代Perl中使用的其他模块是什么？

Question

试图摆脱子：：过滤器从内部OOP。我正在修复的代码本身是评估的，我新创建的包装应该报告正确的子名称，但是我只有__ ANON _

$code_after = _stringify(qq{
     BEGIN {
         my \$orig = \\&$subname;
         my \$orig_attr = attributes::get(\\&$subname);
         no warnings 'redefine';
         my \$s = sub {\&Sub::Uplevel::uplevel(2, \$orig, \@_);};
         *$subname = sub {
             \@_ = \&\$s;
             return unless defined wantarray;
             ...

Answer 1

使用Sub::Name重新定义匿名子名称。

 use Sub::Name;
 *$subname = subname Whatever::Module::your_sub_name => sub {