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');

这个测试没有通过,这意味着没有…不会做我认为的,包括取消引用符号.我已经读过perldoc no,但这似乎是相当不明智的.鉴于这段代码的结果,我会说它不完全做广告.

什么不做？什么时候和为什么要使用它？