Log::Minimal をアップデートしました。バージョンは 0.05
http://search.cpan.org/dist/Log-Minimal/
$Log::Minimal::TRACE_LEVEL というフラグを追加しました。 Carpの$CarpLevelと同じように、stacktraceを開始するレベルを変更できます。
package TestLog;
use Log::Minimal;
sub test_log {
warnf @_;
}
package main;
{
TestLog::test_log("1st log");
}
{
local $Log::Minimal::TRACE_LEVEL = $Log::Minimal::TRACE_LEVEL + 1
TestLog::test_log("2nd log");
}
結果は
2011-04-28T15:02:19 [WARN] 1st log at /tmp/test.pl line 6
2011-04-28T15:02:19 [WARN] 2nd log at /tmp/test.pl line 17
1個目は、testlog を定義した行がでていますが、2個目はtestlogを呼び出した行になってます。これを使うと、Log::Minimalの関数をwrapしたようなものも作れます