更新が無かったので、疑問を垂れ流してみる。 package a; sub new { my $class = shift; bless {},$class; }; sub foo { print "foo"; } てのがあったとして。 my $sub = "foo"; my $a = a->new; my $code = $a->can($sub); $code->(); みたいにcanを使った…