と言う訳でつたないコードですけど投稿してみたお！ CPANに頼りまくる系 #!/usr/bin/perl package Foo; { no strict 'refs'; for my $method (qw/foo bar baz test_foo test_bar test_baz/) { *{"Foo::$method"} = sub { print $method . "\n"; }; } } sub n…