| Subject: | _unload_module |
Hello.
I frequently use again.pm.
I think that it is better to change _unload_module.
# original https://st.aticpan.org/source/NEILB/again-0.08/lib/again.pm
sub _unload_module
{
my $package = shift;
my $symbol_table = $package.'::';
no strict 'refs';
foreach my $symbol (keys %$symbol_table) {
next if $symbol =~ /\A[^:]+::\z/;
delete $symbol_table->{$symbol};
}
}
# to
use Package::Stash;
sub _unload_module
{
my $package = shift;
my $stash = Package::Stash->new($package);
for ($stash->list_all_symbols) {
for my $sigil (qw($ @ % &), '') {
$stash->remove_symbol("$sigil$_");
}
}
}
Please see the attached file for details.
Thanks for your time. I know you're busy.
| Subject: | again-reuse_globs-0.03.tar.gz |
Message body not shown because it is not plain text.