約2ヶ月前、can()はどのインスタンスでもできるんだよなーと思って、以下のコードを実行した。 use CGI; my $q = CGI->new; if ($q->can('header')) { print "CGI can 'header'.\n"; } else { print "CGI can't 'header'.\n"; } 実行。 CGI can't 'header'. …