CGI::Application::Plugin 完全な思いつき&パクリ。 package CGI::Application::Plugin; use 5.006; use strict; use attributes (); our $VERSION = 0.01; # Code stolen from Class::DBI::Plugin # Code stolen from Simon Cozens (Maypole) our %remember; sub MODIFY_CODE_ATTRIBUTES { $remember{ $_[1] } = $_[2]; () } sub FETCH_CODE_ATTRIBUTES { $remember{ $_[1] } } sub import { my $class = shift; my $caller = caller; no str