如何解決perl調試器中的警告？

Question

我有一個代碼路徑，有時會發出警告。由於這條路很多時候都會使用，所以我不想在每次傳球時突破。我如何才能在發出警告的時候突破？

Answer 1

您可以使用「信號處理程序」進行警告並設置標誌，然後在設置標誌時中斷。

our $warn_flag = 0; 
$SIG{__WARN__} = sub { $warn_flag = 1; CORE::warn(@_) }; 

... 

for $i (1 .. 1_000_000_000) { 
    do_something_that_might_warn(); 
    $DB::single ||= $warn_flag; 
    $warn_flag = 0; 
} 

Answer 2

use warnings qw(FATAL); 

這將警告轉換爲錯誤的詞彙範圍，這將自動導致調試器打破。