CGI WAF むけの Model は何がいいのか (あるいは、Perl モジュールの依存関係を調べる方法)
META.yml だとテスト用の依存関係まで書いてあったりするので、実際の負荷を予測するための手段として use してるものを grep するワンライナー。
ところでモデルってなんですか?
$ (a=`perldoc -l SQL::DB | perl -pe 's/\.pm$/*/'` ; cat `find $a | egrep '\.pm$'` | egrep '^use ' | sort | uniq) use 5.006; use Carp qw(carp croak confess cluck); use Carp qw(carp croak confess); use Carp qw(carp croak); use Carp qw(croak); use Carp; use DBI; use Exporter; use Return::Value; use SQL::DB::Cursor; use SQL::DB::Row; use SQL::DB::Schema::AColumn; use SQL::DB::Schema::ARow; use SQL::DB::Schema::Column; use SQL::DB::Schema::Expr; use SQL::DB::Schema::Query; use SQL::DB::Schema::Table; use Scalar::Util qw(refaddr); use Scalar::Util qw(weaken); use UNIVERSAL qw(isa); use UNIVERSAL; use base qw(Class::Accessor); use base qw(Class::Accessor::Fast); use base qw(Exporter); use base qw(SQL::DB::Schema); use base qw(SQL::DB::Schema::Expr); use constant MODIFIED => 1; use constant ORIGINAL => 0; use constant STATUS => 2; use in all query types. This object has methods for each column use overload use strict; use warnings;