ちょっと前の話なのですが、Test::Mock::ExternalCommandというモジュールを CPAN に ship しました。

外部コマンドを置き換えるモジュールです。記事は前にも書いてたな。

このモジュール、まあまあ便利に使ってたのですが、最近は Nagios プラグイン書いていなかったのと、バッククォート文字列で変数展開するために、Variable::Expand::AnyLevel というモジュールを書いて、それを使ってるのですが、こいつがだいぶマジカルで(単なる PadWalker のラッパーといえばそれまでなんだけど)、「これ CPAN に上げるの微妙だなー」と思って放置していました。

そしたら、ちょい前に @y_uuki_ さんから、

と言われまして、今回 CPAN に上げた次第です。

なお、バッククォート文字列でのコマンド実行を置き換えるために、readpipe という関数をオーバーライドしてるのですが、これが可能なのが Perl 5.10 以降なので割と新しい Perl 使ってくださいな。