Catalyst::Model::DBIC::Schemaのソース http://search.cpan.org/src/BOGDAN/Catalyst-Model-DBIC-Schema-0.21/lib/Catalyst/Model/DBIC/Schema.pmnew の後半部分。Modelクラスを動的に増やして、そこに、ACCEPT_CONTEXTを生やしている。 sub new { my $self…