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

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 ...没有做什么，我想这样做，其中包括unimporting的符号。我读过perldoc no，但它确实看起来很没有说服力。鉴于此代码的结果，我会说它并不完全按照它的广告。

no是做什么用的？何时以及为什么我应该使用它？

Answer 1

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

然而，很少的软件包 - 实际上，大多数只有编译指示模块 - 支持unimport()。