Пытаюсь удалить импортированные символы, чтобы они были недоступны как методы в объекте, но no
вроде не работает, может я чего не понимаю или есть другой способ.
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;
К сожалению, я не могу использовать пространство имен ::autoclean , потому что я был ограничен модулями, которые являются лишь частью ядра perl (да, глупо, но c'est la vie ).
без перезаписи namespace::autoclean
есть ли способ сделать это?