Perlでテストするときにエラーを記録する最善の方法は何ですか？

Question

Perlでテストするときにエラーを記録する最良の方法は何ですか？

return 0 if $var!=3 and $logger->error("Var is not 3")) 

このような例は実装できますか？

Answer 1

$logger->error("Var is not 3"), return 0 if $var != 3; 

これは、あなたが左に部品が評価が、その値は無視され、式の最終的な値は右端の一部であるとされている式を記述することができますcomma operatorためのPerlのサポート、の利点を取っています。

Answer 2

あなたは常に行うことができます：

の利点との優先順位の低い（と 場合のさえ低い優先順位を）かかり

$logger->error("Var is not 3") and return 0 if $var != 3 

。

Answer 3

私がデバッグしているのであればcarp/croak/confessを使用するほうがいいですが、プロダクションコードで実行している場合はLog::Reportを試してみてください。

このように、$var == 3 or confess("var != 3!")は、エラーとスタックトレースを出力する1つのライナーが必要な場合に使用します。

Answer 4

Log4Perlあなたがしたいことができます。これはLog4JのPerlクローンです。これは、細粒度の動的ログフィルタリング設定を備えています。

Answer 5

Test :: Moreを使用している場合は、diag（）を使用してください。これは、証明などでよりよく再生されます。