- 84 名前：nobodyさん mailto:sage [2009/02/21(土) 08:40:32 ID:???]
- >>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"を出してほしい
