よくやるのはこれ。$objにfugaメソッドが使えるかチェックして、使えなければ負値を返す、使えれば使った結果を返す。
if (&test($obj) < 0) {
print "ERROR:";
}
sub test
{
my $obj = shift;
return -1 if !$obj->can('fuga');
return $obj->fuga;
}
newで作ったオブジェクトに使えるメソッドはpodを見ればいいとして、何かの戻り値で帰ってきたオブジェクトに使えるメソッドは何か。そもそも帰ってきたオブジェクトの種類は何か?
よくやるのはこれ。$objにfugaメソッドが使えるかチェックして、使えなければ負値を返す、使えれば使った結果を返す。
if (&test($obj) < 0) {
print "ERROR:";
}
sub test
{
my $obj = shift;
return -1 if !$obj->can('fuga');
return $obj->fuga;
}