Mi previous question ha resuelto mi problema, pero me ha dejado con una falta de comprensión.¿Qué significa realmente la palabra clave "no" en Perl?
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');
Esta prueba no pasa, lo que significa no ...
no hago lo que creo que sí, que incluye unimporting los símbolos. He leído perldoc no
, pero realmente parece bastante poco esclarecedor. Teniendo en cuenta los resultados de este código, diría que no hace exactamente lo que anuncia.
¿Qué hace no
hacer? ¿Cuándo y por qué debería usarlo?
Se podría argumentar que 'Exporter' no define un' unimport' para ir con su 'import' es un error. – geekosaur
@geekosaur, estoy de acuerdo. (Podria argumentarse :)) – pilcrow