perl - perl で終了動作をモックするにはどうすればよいですか?

Question

PERL モジュールの 1 つに 1 つのサブルーチン検査があるとします。

sub exam  
{  
    ....  
    ....  
    exit 0;  
}

そして、このAPIのテストケースを書きたい-

is('exam',0,"exam subroutine works properly");

しかし、その後exit 0、PERLスクリプトが出てきているため、機能していません。
私の質問は、どうすれば exit の振る舞いを模倣できるでしょうか?

Answer 1

Test::Exitを使用してみてください

    perl  -le 'use Test::More tests => 2; use Test::Exit ; sub s1 { exit $_[0] }; exits_zero( sub{ s1(0)}, q{exit 0}); exits_ok(sub {s1(1)}, q{exit 1}); ' 
    1..2
    ok 1 - exit 0
    ok 2 - exit 1