# Test::MethodName メソッド名をちぇっくちぇっくちぇっく {{cpan: Test::NoLoad}} `check_no_load` とかいうメソッド書いた翌日に [[http://d.hatena.ne.jp/Yamashiro0217/20130210/1360480362|check_xxx がなんでダメなのか]] とかいうエントリーが TL に流れてきて涙目になった bayashi ですこんばんわー~。 涙でエディタが見えなくて苦労しましたが、じゃあ、ってんで 「check_XXX っていうメソッドダメ!」 みたいなのをテストできるモジュール書いてみました。 use Test::MethodName; all_methods_ok( 'MyApp' => sub { my $method = shift; return ( $method =~ m!check! ) ? undef : 'pass'; }, ); MyApp 以下のモジュールすべてのメソッド名に対して、コードリファレンスを実行します。 実行結果は {{cpan: Test::More}} の `ok` に渡されます。 ついでに、一個のモジュールだけをテストする `method_ok($module => sub { 'pass' })` もあります。 {{cpan: Perl::Critic::Policy}} とかでやる方がいいかなーとか思いましたが、ちゃちゃっと書けなかったので、いくつかのモジュールからコードを拝借してゴリっと書いてみました。 たぶんどっかにあるような気もする。