在Perl中,确定coderef包的最可靠方法是什么？

我有一些更高阶的效用函数,它接收代码引用并将该代码应用于某些数据.这些功能中的一些需要在执行子程序期间对变量进行本地化.开始时,我正在使用调用者来确定哪个包本地化,以与本示例中所示相似的方式减少功能：

sub reduce (&@) {
    my $code      = shift;
    my $caller    = caller;
    my ($ca,$cb) = do {
        no Strict 'refs';
        map \*{$caller.'::'.$_} => qw(a b)
    };
    local (*a,*b) = local (*$ca,*$cb);
    $a = shift;
    while (@_) {
        $b = shift;
        $a = $code->()
    }
    $a
}

最初,这种技术工作正常,但是一旦我尝试在高阶函数周围编写一个包装函数,找出正确的调用者就变得复杂了.

sub reduce_ref (&$) {&reduce($_[0],@{$_[1]})}

现在为了减少工作,我需要一些像：

@H_518_2@my ($ca,$cb) = do { my $caller = 0; $caller++ while caller($caller) =~ /^This::Package/; no Strict 'refs'; map \*{Caller($caller).'::'.$_} => qw(a b) };

在这一点上,它成为一个跳过的包的问题,​​结合从不使用这些包中的功能的纪律.必须有一个更好的方法.

事实证明,高阶函数作为参数的子例程包含足够的元数据来解决问题.我目前的解决方案是使用B内省模块来确定传​​入子程序的编译存储空间.这样,无论代码编译和执行之间发生什么,高阶函数总是知道正确的包进行本地化.

@H_518_2@my ($ca,$cb) = do { require B; my $caller = B::svref_2object($codE)->STASH->NAME; no Strict 'refs'; map \*{$caller.'::'.$_} => qw(a b) };

所以我的最终问题是,这是否是在这种情况下确定主叫方的最佳方法？还有其他一些我没想到的方法吗？目前的解决方案是否有等待发生的BUG？

sub reduce_ref (&$) { @_ = ( $_[0],@{$_[1]} ); goto &reduce; }

B::svref_2object($codE)->STASH->NAME

{
   package Utils;
   sub mk_some_reducer {
      ...
      return sub { ... $a ... $b ... };
   }
}

reduce(mk_some_reducer(...),...)