如何捕獲並重新拋出Perl中的錯誤？

Question

假設我有一個模塊Bar，它是模塊Foo的子類包裝器。我想調用Bar的方法來模擬Foo的 - 甚至是致命的錯誤。到目前爲止，很容易;我只是打電話給SUPER方法。

sub stuff { 
    # Do stuff here 

    SUPER::stuff(@_); 

    # Do more stuff here 
} 

但是，讓我們假設我想抓住，記錄並重新拋出任何致命錯誤SUPER::stuff()產生。前兩步很容易：

sub stuff { 
    # Do stuff here 

    eval { 
     SUPER::stuff(@_); 
    }; 
    $@ and log("Naughty, naughty: $@"); 

    # Do more stuff here 
} 

...但我不知道如何做最後一部分。如何重新拋出錯誤，使得主叫方無法區分Foo->stuff()的呼叫和Bar->stuff()的呼叫？我可以在日誌聲明後插入die $@，並期望它能做我想做的事情嗎？或者在這裏有細微差別可能會讓我陷入困境？

Answer 1

你提出的建議是有效的。 Perl沒有結構化異常，因此$@中的數據是所有調用者都會得到的。

Answer 2

eval { 
     SUPER::stuff(@_); 
    }; 
    $@ and (log("Naughty, naughty: $@"), die $@); 

Answer 3

在Perl中安全評估/捕獲/記錄/重新拋出的完整代碼可能有點冗長。

sub stuff { 
    # Do stuff here 

    local $@; # don't reset $@ for our caller. 
    my $eval_ok = eval { # get the return from eval, it will be undef if the eval catches an error. 
     SUPER::stuff(@_); 
     1; # return 1 (true) if there are no errors caught. 
    }; 
    if (!$eval_ok) { # don't trust $@ it might have been reset as the eval unrolled. 
     my $error = $@ || 'unknown error'; # copy $@ incase write_log resets $@, or is later changed to cause it to reset $@. 
     write_log("Naughty, naughty: $error"); 
     die $error; # after all that we can rethrow our error. 
    } 

    # Do more stuff here 
} 

可以使用Try::Tiny sugested由暴民簡化：

sub stuff { 
    # Do stuff here 

    try { 
     SUPER::stuff(@_); 
    } catch { 
     my $error = $_; 
     write_log("Naughty, naughty: $error"); 
     die $error; 
    } 

    # Do more stuff here 
}