Perl 更改当前包？

Question

不使用源过滤器，有没有办法更改当前正在运行的包？我正在努力完成同样的事情 oose.pm是的，我想知道是否可以将我的用户放入非主包中。

Answer 1

我认为您可以通过更改 PL_curstash 来做到这一点。和 PL_curstname在 C 级。

PL_curstash = gv_stashpvs("Some::Package", GV_ADD);
sv_setpvs(PL_curstname, "Some::Package");

PL_curstash是编译期间当前包的存储， PL_curstname是它的名字。

更新:

我发现这个问题很有趣，并将解决方案实现为 Devel::ChangePackage .结果证明我最初建议的方法有效。您可以从 http://github.com/rafl/devel-changepackage 获得它，或从您附近的 CPAN 镜像更新后。