如何在 Perl 中完全删除一个包？

Question

如何在 Perl 中完全删除一个包？这不仅意味着包变量，还意味着 Perl 更新以处理继承更改和其他事情的任何魔术表。

这个简单的测试：

use warnings; use strict;
use Test::LeakTrace;
use Symbol 'delete_package';

leaktrace {
   package test;
   our $x = 1;

   package main;
   delete_package 'test';
};

产生以下输出：

leaked ARRAY(0x81c930)  from /lib/perl5/5.10.1/Symbol.pm line 166.
leaked HASH(0x827760)   from /lib/perl5/5.10.1/Symbol.pm line 166.
leaked SCALAR(0x821920) from /lib/perl5/5.10.1/Symbol.pm line 166.

对leaktrace 使用-verbose 标志会产生大量数据，我可以根据要求发布这些数据。

如果将our @ISA = 'main'; 行添加到test 包中，情况会变得更糟：

leaked ARRAY(0x81cd10) from so.pl line 32.
leaked SCALAR(0x81c930) from so.pl line 32.
leaked ARRAY(0x8219d0) from so.pl line 32.
leaked HASH(0x8219c0) from so.pl line 32.
leaked SCALAR(0x8219b0) from so.pl line 32.
leaked HASH(0x8219a0) from so.pl line 32.
leaked SCALAR(0x821970) from /lib/perl5/5.10.1/Symbol.pm line 161.
leaked HASH(0x821950) from so.pl line 32.
leaked SCALAR(0x821940) from so.pl line 32.

第 32 行是 our @ISA 所在的位置。

为了说明这些确实是泄漏，而不仅仅是解释器的噪音：

my $num = 0;
while (1) {
    no strict 'refs';
    @{$num.'::ISA'} = 'main';
    delete_package $num++;
}

会以恒定的速度吃掉内存

那么，有没有比 Symbol 的 delete_package 更好的方法来摆脱包？我还需要做些什么来帮助它吗？

我在 5.8.8、5.10.1 和 5.12 中看到了相同的行为

Answer 1

所以这是 perl 中的一个错误，即使您发现了，也是一个报告的错误。如果没有解决这个问题，避免这些泄漏的唯一方法似乎是选择另一种方法来解决您的问题。

你为什么需要一个半匿名的包而不是一个闭包？这些很容易做到不泄漏，并且，通过一些创造力，您仍然可以在它们之上实现几乎每个外部接口，例如通过祝福您的闭包代码引用并为它们提供方法，为它们提供重载等。