Question

我的previous question解决了我的问题，但让我对此缺乏了解。

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'), 'cannot carp');

这个测试没有通过，这意味着no ...没有做我认为它做的事情，包括不重要的符号。我读过perldoc no，但它看起来确实相当令人失望。鉴于此代码的结果，我会说它并不完全按照它所宣传的那样做。

no做什么？何时以及为什么要使用它？

Answer 1

no调用包的unimport()，而use调用import()，两者都默默地跳过没有找到所需子的情况。

但是，很少有软件包 - 实际上只有pragma模块 - 支持unimport()。

关键字“no”在Perl中实际上做了什么？

1 个答案: