試圖從內部 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;
...
uj5u.com熱心網友回復：
用于Sub::Name重新定義您的匿名子名稱。
use Sub::Name;
*$subname = subname Whatever::Module::your_sub_name => sub {
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/450423.html