たとえば以下のようなコードで$objにfugaというメソッドがあるかどうかチェックできる。この出力がundefじゃなければメソッドがあるということだ。
my $obj = HOGE->new;
my $mehod = $obj->can('fuga');
print $method;
デバッグ作業していると、今読んだmethodの内容が知りたいということは多々ある。そんなときにはソースコードの内容を検索するのだが、Data::Dumperを使って、Data::Dumper::Deparse = 1;とすることで、methodの内容をチェックできる。これがないとsub{ "DUMMY" }になってしまう。
use Data::Dumper;
Data::Dumper::Deparse = 1;
my $obj = HOGE->new;
my $mehod = $obj->can('fuga');
print Dumper $method;