2012-01-17
■App::ExtractUsed というものを書いている話
CPAN形式で開発していると避けて通れないのが依存モジュールの炙り出しと Makefile.PL へ requires を書き出す作業。これは意外と面倒なのでもっと怠惰に楽をしたいところ。
たとえモジュールが要求するperlのバージョンを決めていたとしても「どれがコアモジュールでどれが違うのか」「parent.pm は 5.10.1 からコアモジュールになった」など、漏れなく抽出しないと新しい環境でインストールする時に悲しいことになってしまう。
こんな面倒事はコマンド叩くだけで済ませてしまいたい、というわけで punytan/p5-App-ExtractUsed - GitHub をでっち上げた。
使い方
extractused コマンドがインストールされるので、基本的にはこれを叩くだけで lib/ と t/ を走査して requires, test_requires が出力される感じ。
$ extractused requires 'WWW::NicoVideo::Download'; requires 'WWW::YouTube::Download'; test_requires 'Coro';
"t::" のようなテストディレクトリにある名前空間は強制的に取り除かれるので、心置きなく use t::Util; できてホクホクです。
オプション
--dir
指定したディレクトリのみを走査したい場合に。デフォルトは lib と t ディレクトリ。
$ extractused --dir bin --skip YourProject
--file
任意のファイルのみから抽出したいときはこのオプションでパスを指定。
$ extractused --file lib/YourProject.pm --skip YourProject
--skip
プロジェクトのnamesapaceを無視したいときに。
ここの挙動は自動的に判定するように変えたい(けれどロジック書くのがちょっと厄介)。
前方一致で判定するのでこの場合、YourProject::Web もスキップされる。
$ extractused --skip YourProject
--perl
最低限サポートしたい perl のバージョン。perlのバージョンによってコアモジュールが変わってくる(5.10.1あたりだと parent.pm, それ以前だと version.pm 等)ので、ちょっと古めの環境でも使うなら指定しておいたほうが無難。デフォルトは現在走ってるバージョン。
$ extractused --perl 5.10.1
まだまだ alpha-quality
使ってみて気になる所があればぜひ punytan/p5-App-ExtractUsed - GitHub に pull-req を。
ある程度インターフェースが固まってきたらCPANize予定。それまでは互換性考慮せず変えていきたいと思ってます。
経緯
プロジェクトの依存モジュール一覧出してくれるスクリプト(未完) - Cside::StudyMemo - Csideグループ
- 41 http://www.google.co.jp/url?sa=t&rct=j&q=pjax&source=web&cd=2&ved=0CDAQFjAB&url=http://d.hatena.ne.jp/punitan/20110404/1301895279&ei=KzsVT4idN4TumAXBgt3-CQ&usg=AFQjCNFQkuqYuDiz9ZFIHi-PuaDV9mBRAA&cad=rja
- 17 http://b.hatena.ne.jp/
- 17 http://www.google.co.jp/url?sa=t&rct=j&q=pjax&source=web&cd=1&ved=0CC0QFjAA&url=http://d.hatena.ne.jp/punitan/20110404/1301895279&ei=bUIVT9mRF8rxmAWQlYGBCg&usg=AFQjCNFQkuqYuDiz9ZFIHi-PuaDV9mBRAA&sig2=xDSeifIZa4zDU7rS0s4QUA
- 16 http://www.google.co.jp/url?sa=t&rct=j&q=pushstate&source=web&cd=1&ved=0CCMQFjAA&url=http://d.hatena.ne.jp/punitan/20110404/1301895279&ei=J0YWT6bpAqKKmQXdoYzQAw&usg=AFQjCNFQkuqYuDiz9ZFIHi-PuaDV9mBRAA&sig2=tYt9SD0fkPA_0dWm3t_eWA
- 14 http://t.co/b0nQAqIm
- 12 http://reader.livedoor.com/reader/
- 11 http://www.facebook.com/l.php?u=http://d.hatena.ne.jp/punitan/20120117/1326787393&h=AAQGxmItaAQGq2RJVRyjtfU9AyAj1QjgAeXIXCpkm-KBgmQ
- 10 http://pipes.yahoo.com/pipes/pipe.info?_id=8dda7c5265619c2fb368495a3d11b784
- 9 http://b.hatena.ne.jp/entrylist
- 9 http://b.hatena.ne.jp/entrylist/it
