Perl pdf重用。。。。如果存在'；这是一个错误（而不仅仅是死亡）

我正在使用PDF:：Reuse编写新的PDF:

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

工作得很好，但是如果出现错误，整个脚本都会死掉……如果重用遇到问题，我怎么能改为“警告”呢

将其包装在块中：

或者更好的是，使用（它做同样的事情，但更安全）：

---

别忘了

捕捉后的代码
use PDF::Reuse;                      

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

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

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