PDF重用....如何警告，如果有一個錯誤（而不是隻死）

Question

我使用的PDF ::重用寫一個新的PDF：

use PDF::Reuse;      
prFile($copyPdf); 
prDoc($old) ; 
prEnd(); 

的偉大工程，但如果有一個錯誤，整個腳本都會死亡......如果Reuse遇到問題，我該如何才能「警告」？

Answer 1

包裝在一個塊eval：

use PDF::Reuse;      

eval { 
    prFile($copyPdf); 
    prDoc($old) ; 
    prEnd(); 
    1; 
} or warn $@; 

或者更好的是，使用Try::Tiny（它做同樣的事情，但在一個更安全的方式）：

use Try::Tiny; 
use PDF::Reuse;      

try { 
    prFile($copyPdf); 
    prDoc($old) ; 
    prEnd(); 
} catch { 
    warn $_; 
};