使ってると思しきモジュール一覧を列挙するワンライナー

Module::ExtractUse で何となく出来る。

perl -MModule::ExtractUse -le 'my $p = Module::ExtractUse->new; my @used; while (my $module = shift @ARGV ) { $p->extract_use($module); push(@used, $p->array); } my %seen; @used = sort { $a cmp $b } grep { !$seen{$_}++ } @used; local $,="\n"; print @used' `find ./lib -name "*.pm"`

こういう感じ？

ただ use parent とかで指定したモジュールとかまでは理解してくれないのであくまで補助的にかなー。もっと良い方法あったら教えてエロい人！