如何禁用特定类的 Log4perl 输出？

Question

我想在项目中使用 Log4perl，但对某个类（在本例中为 Net::Amazon）禁用它。我以为这会很容易，但不知何故我失败了。

我尝试使用

use Log::Log4perl (:easy_init);
use Net::Amazon;

my $amz = Net::Amazon->new( ... );
my $log = Log::Log4perl->easy_init($DEBUG);
$log = $log->get_logger("Net::Amazon");
$log->level($OFF);

$log = $log->get_logger(__PACKAGE__);
$log->info("Hello World.");

不幸的是，Net::Amazon 的调试消息仍然打印到终端。这是为什么？我在这里做错了什么？

Answer 1

问题解决了，是人类的愚蠢造成的。使用 get_logger 获取当前包的记录器后忘记保存它。以下示例按预期工作：

use Log::Log4perl (:easy);
use Net::Amazon;

my $amz = Net::Amazon->new( ... );
Log::Log4perl->easy_init($DEBUG);
$log = get_logger("Net::Amazon");
$log->level($OFF);

$log = $log->get_logger(__PACKAGE__);
$log->info("Hello World.");