Test::LeakTraceというアイデア

Devel::LeakTrace(::Fast)?が使いにくい。BEGIN/ENDでレポートを出力するだけだし,そのレポートもSVの型とアドレスしか報告しない。それでもないよりはマシなので,Devel::LeakTraceを呼び出すスクリプトをauthor/やmisc/などに入れて実行しているが,これらの作業をいい加減自動化したい。

use Test::More;
use Test::LeakTrace;

# リークはまったく認めない
leak_ok{ foo() }; 

# 3個のリークは想定内
leaks_are{ bar() }, 3;

# リークしているSVのリファレンスのリスト
my @svrefs = leaked_refs{ baz() };

こんなモジュールがあったらいいのに,と思って手始めにDevel::LeakTrace::Fastのソースを覗いてみたがカオスすぎてよく分からない。