09/02/21 14:34:37
>>84
そういうのは考えたことが無かったな。
SUPER.pm使うぐらいしか思いつかない。
package main;
use SUPER;
my $obj = Child->new;
$obj->whoami; # child
$obj->super('whoami')->();
>>89
ユニークな値ならなんでもよし。
09/02/21 14:34:37
>>84
そういうのは考えたことが無かったな。
SUPER.pm使うぐらいしか思いつかない。
package main;
use SUPER;
my $obj = Child->new;
$obj->whoami; # child
$obj->super('whoami')->();
>>89
ユニークな値ならなんでもよし。