Как я могу напечатать сообщение об ошибке из блока try в блоке catch с помощью TryCatch.pm?

Question

У меня есть блок try-catch (из модуля TryCatch) в моем скрипте, и я хочу напечатать сообщение об ошибке из блока try в блоке catch. Похоже, что переменная ошибки является локальным для try блока:

use TryCatch; 
... 
try { 
     some command; 
    } 
    catch { 
     print "some command failed due to: $@"; 
     # error variable $@ is not visible here 
     return; 
    } 

Есть ли другой способ сделать это?

Answer 1

Согласно documentation, код, который вы показали, должен работать. Тем не менее, есть longstanding bug, который приводит к сбою.

Вы можете получить вокруг него, используя подпись в catch блоке:

use strict; 
use warnings; 
use 5.010; 

use TryCatch; 

try { 
    die 'foo'; 
} 
catch ($err) { 
    say "Caught $err"; 
} 

Выход:

Caught foo at ./bar line 10. 

Однако, основываясь на количестве outstanding bugs, я бы рекомендовал использовать Try::Tiny вместо.