我正在尝试删除导入的符号,以使它们不可用作对象中的方法,但no
似乎不起作用,也许我不理解否,或者还有其他方法。< / p>
use 5.014;
use warnings;
use Test::More;
# still has carp after no carp
package Test0 {
use Carp qw( carp );
sub new {
my $class = shift;
my $self = {};
carp 'good';
bless $self, $class;
return $self;
}
no Carp;
}
my $t0 = Test0->new;
ok( ! $t0->can('carp'), 'can not carp');
# below passes correctly
package Test1 {
use Carp qw( carp );
use namespace::autoclean;
sub new {
my $class = shift;
my $self = {};
carp 'good';
bless $self, $class;
return $self;
}
}
my $t1 = Test1->new;
ok( ! $t1->can('carp'), 'can not carp');
done_testing;
不幸的是我不能使用namespace::autoclean,因为我被限制在仅仅是核心perl的一部分的模块中(是的,愚蠢的,但是很好)。
没有重写namespace::autoclean
有没有办法做到这一点?
答案 0 :(得分:13)
我相信namespace :: autoclean会删除glob:
delete $Test0::{carp};
没有硬编码包:
my $pkg = do { no strict 'refs'; \%{ __PACKAGE__."::" } };
delete $pkg->{carp};
如果你坚持严格要求,你可以严格愚弄(但不会更安全或更不安全):
my $pkg = \%::;
$pkg = $pkg->{ $_ . '::' } for split /::/, __PACKAGE__;
delete $pkg->{carp};
PS - 如果来自CPAN的代码不是,为什么StackOverflow的代码可以接受?
答案 1 :(得分:11)
我知道这并没有直接回答你的问题,但一个简单的解决方法是不首先导入函数。这样可以正常工作:
use Carp (); # import nothing
Carp::carp 'good';