pdf重用....如何发出错误警告（而不仅仅是死亡）

Question

我正在使用PDF ::重用写一个新的pdf：

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

效果很好，但如果出现错误，整个脚本就会死掉......如果重用遇到问题，我怎么能“警告”？

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 $_;
};