Perl 模块 Scope::Upper Sub::Uplevel，现代 perl 还使用了哪些其他模块？

Question

试图从内部 OOP 中摆脱 Sub::Filter。我正在修复的代码本身已被评估，我新创建的包装器应该报告正确的子名称，但我只有 _ _ 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 {

Perl 模块 Scope::Upper Sub::Uplevel，现代 perl 还使用了哪些其他模块？

Perl modules Scope::Upper Sub::Uplevel, what other modules are in use with modern perl?

perl

callstack