09/02/21 08:40:32
>>83
具体例を出すべきでしたね、すみません。
package Parent;
sub new { bless {},shift }
sub whoami { print "parent\n" }
package Child;
use base 'Parent';
sub whoami { print "child\n" }
package main;
my $obj = Child->new;
$obj->whoami; # child
$obj->SUPER::whoami; # エラー。"parent\n"を出してほしい